<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE DeriveGeneric #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
</span><span id="line-3"></span><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
</span><span id="line-4"></span><span>
</span><span id="line-5"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-7"></span><span class="hs-comment">-- Module      :  Distribution.Simple.Haddock</span><span>
</span><span id="line-8"></span><span class="hs-comment">-- Copyright   :  Isaac Jones 2003-2005</span><span>
</span><span id="line-9"></span><span class="hs-comment">-- License     :  BSD3</span><span>
</span><span id="line-10"></span><span class="hs-comment">--</span><span>
</span><span id="line-11"></span><span class="hs-comment">-- Maintainer  :  cabal-devel@haskell.org</span><span>
</span><span id="line-12"></span><span class="hs-comment">-- Portability :  portable</span><span>
</span><span id="line-13"></span><span class="hs-comment">--</span><span>
</span><span id="line-14"></span><span class="hs-comment">-- This module deals with the @haddock@ and @hscolour@ commands.</span><span>
</span><span id="line-15"></span><span class="hs-comment">-- It uses information about installed packages (from @ghc-pkg@) to find the</span><span>
</span><span id="line-16"></span><span class="hs-comment">-- locations of documentation for dependent packages, so it can create links.</span><span>
</span><span id="line-17"></span><span class="hs-comment">--</span><span>
</span><span id="line-18"></span><span class="hs-comment">-- The @hscolour@ support allows generating HTML versions of the original</span><span>
</span><span id="line-19"></span><span class="hs-comment">-- source, with coloured syntax highlighting.</span><span>
</span><span id="line-20"></span><span>
</span><span id="line-21"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Distribution.Simple.Haddock</span><span> </span><span class="hs-special">(</span><span>
</span><span id="line-22"></span><span>  </span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddock"><span class="hs-identifier">haddock</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#hscolour"><span class="hs-identifier">hscolour</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-23"></span><span>
</span><span id="line-24"></span><span>  </span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddockPackagePaths"><span class="hs-identifier">haddockPackagePaths</span></a></span><span>
</span><span id="line-25"></span><span>  </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-26"></span><span>
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Compat.Prelude.html"><span class="hs-identifier">Distribution.Compat.Prelude</span></a></span><span>
</span><span id="line-29"></span><span>
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Simple.GHC.html"><span class="hs-identifier">Distribution.Simple.GHC</span></a></span><span>   </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">GHC</span></span><span>
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Simple.GHCJS.html"><span class="hs-identifier">Distribution.Simple.GHCJS</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">GHCJS</span></span><span>
</span><span id="line-32"></span><span>
</span><span id="line-33"></span><span class="hs-comment">-- local</span><span>
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.DescribeUnitId.html"><span class="hs-identifier">Distribution.Backpack.DescribeUnitId</span></a></span><span>
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.html"><span class="hs-identifier">Distribution.Backpack</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Backpack.html#OpenModule"><span class="hs-identifier">OpenModule</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.ForeignLib.html"><span class="hs-identifier">Distribution.Types.ForeignLib</span></a></span><span>
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.UnqualComponentName.html"><span class="hs-identifier">Distribution.Types.UnqualComponentName</span></a></span><span>
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html"><span class="hs-identifier">Distribution.Types.ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.ExecutableScope.html"><span class="hs-identifier">Distribution.Types.ExecutableScope</span></a></span><span>
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html"><span class="hs-identifier">Distribution.Types.LocalBuildInfo</span></a></span><span>
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.TargetInfo.html"><span class="hs-identifier">Distribution.Types.TargetInfo</span></a></span><span>
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.ExposedModule.html"><span class="hs-identifier">Distribution.Types.ExposedModule</span></a></span><span>
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Package.html"><span class="hs-identifier">Distribution.Package</span></a></span><span>
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.ModuleName.html"><span class="hs-identifier">Distribution.ModuleName</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ModuleName</span></span><span>
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.PackageDescription.html"><span class="hs-identifier">Distribution.PackageDescription</span></a></span><span>
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html"><span class="hs-identifier">Distribution.Simple.Compiler</span></a></span><span>
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Glob.html"><span class="hs-identifier">Distribution.Simple.Glob</span></a></span><span>
</span><span id="line-48"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.GHC.html"><span class="hs-identifier">Distribution.Simple.Program.GHC</span></a></span><span>
</span><span id="line-49"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.ResponseFile.html"><span class="hs-identifier">Distribution.Simple.Program.ResponseFile</span></a></span><span>
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.html"><span class="hs-identifier">Distribution.Simple.Program</span></a></span><span>
</span><span id="line-51"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.PreProcess.html"><span class="hs-identifier">Distribution.Simple.PreProcess</span></a></span><span>
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html"><span class="hs-identifier">Distribution.Simple.Setup</span></a></span><span>
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Build.html"><span class="hs-identifier">Distribution.Simple.Build</span></a></span><span>
</span><span id="line-54"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.BuildTarget.html"><span class="hs-identifier">Distribution.Simple.BuildTarget</span></a></span><span>
</span><span id="line-55"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html"><span class="hs-identifier">Distribution.Simple.InstallDirs</span></a></span><span>
</span><span id="line-56"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.LocalBuildInfo.html"><span class="hs-identifier">Distribution.Simple.LocalBuildInfo</span></a></span><span> </span><span class="hs-keyword">hiding</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Simple.LocalBuildInfo.html#substPathTemplate"><span class="hs-identifier">substPathTemplate</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-57"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.BuildPaths.html"><span class="hs-identifier">Distribution.Simple.BuildPaths</span></a></span><span>
</span><span id="line-58"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Register.html"><span class="hs-identifier">Distribution.Simple.Register</span></a></span><span>
</span><span id="line-59"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.HcPkg.html"><span class="hs-identifier">Distribution.Simple.Program.HcPkg</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">HcPkg</span></span><span>
</span><span id="line-60"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html"><span class="hs-identifier">Distribution.Simple.PackageIndex</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">PackageIndex</span></span><span>
</span><span id="line-61"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.InstalledPackageInfo.html"><span class="hs-identifier">Distribution.InstalledPackageInfo</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">InstalledPackageInfo</span></span><span>
</span><span id="line-62"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.InstalledPackageInfo.html"><span class="hs-identifier">Distribution.InstalledPackageInfo</span></a></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier">InstalledPackageInfo</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-63"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Utils.html"><span class="hs-identifier">Distribution.Simple.Utils</span></a></span><span>
</span><span id="line-64"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.System.html"><span class="hs-identifier">Distribution.System</span></a></span><span>
</span><span id="line-65"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Pretty.html"><span class="hs-identifier">Distribution.Pretty</span></a></span><span>
</span><span id="line-66"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Parsec.html"><span class="hs-identifier">Distribution.Parsec</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Parsec.html#simpleParsec"><span class="hs-identifier">simpleParsec</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-67"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Utils.NubList.html"><span class="hs-identifier">Distribution.Utils.NubList</span></a></span><span>
</span><span id="line-68"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Version.html"><span class="hs-identifier">Distribution.Version</span></a></span><span>
</span><span id="line-69"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Utils.ShortText.html"><span class="hs-identifier">Distribution.Utils.ShortText</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ShortText</span></span><span>
</span><span id="line-70"></span><span>
</span><span id="line-71"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html"><span class="hs-identifier">Distribution.Verbosity</span></a></span><span>
</span><span id="line-72"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Language.Haskell.Extension.html"><span class="hs-identifier">Language.Haskell.Extension</span></a></span><span>
</span><span id="line-73"></span><span>
</span><span id="line-74"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Compat.Semigroup.html"><span class="hs-identifier">Distribution.Compat.Semigroup</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Semigroup.Internal.html#All"><span class="hs-identifier">All</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/Data.Semigroup.Internal.html#Any"><span class="hs-identifier">Any</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-75"></span><span>
</span><span id="line-76"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Monad.html#"><span class="hs-identifier">Control.Monad</span></a></span><span>
</span><span id="line-77"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Either.html#"><span class="hs-identifier">Data.Either</span></a></span><span>      </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../base/src/Data.Either.html#rights"><span class="hs-identifier">rights</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-78"></span><span>
</span><span id="line-79"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../directory/src/System.Directory.html#"><span class="hs-identifier">System.Directory</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../directory/src/System.Directory.html#getCurrentDirectory"><span class="hs-identifier">getCurrentDirectory</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../directory/src/System.Directory.html#doesDirectoryExist"><span class="hs-identifier">doesDirectoryExist</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../directory/src/System.Directory.html#doesFileExist"><span class="hs-identifier">doesFileExist</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-80"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../filepath/src/System.FilePath.html#"><span class="hs-identifier">System.FilePath</span></a></span><span>  </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator">(&lt;/&gt;)</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../filepath/src/System.FilePath.Windows.html#%3C.%3E"><span class="hs-operator">(&lt;.&gt;)</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../filepath/src/System.FilePath.Windows.html#normalise"><span class="hs-identifier">normalise</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../filepath/src/System.FilePath.Windows.html#isAbsolute"><span class="hs-identifier">isAbsolute</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-81"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/System.IO.html#"><span class="hs-identifier">System.IO</span></a></span><span>        </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IO.Handle.html#hClose"><span class="hs-identifier">hClose</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Handle.Text.html#hPutStrLn"><span class="hs-identifier">hPutStrLn</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Handle.html#hSetEncoding"><span class="hs-identifier">hSetEncoding</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Encoding.html#utf8"><span class="hs-identifier">utf8</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-82"></span><span>
</span><span id="line-83"></span><span class="hs-comment">-- ------------------------------------------------------------------------------</span><span>
</span><span id="line-84"></span><span class="hs-comment">-- Types</span><span>
</span><span id="line-85"></span><span>
</span><span id="line-86"></span><span class="hs-comment">-- | A record that represents the arguments to the haddock executable, a product</span><span>
</span><span id="line-87"></span><span class="hs-comment">-- monoid.</span><span>
</span><span id="line-88"></span><span id="local-6989586621679731315"><span id="local-6989586621679731316"></span></span><span class="hs-keyword">data</span><span> </span><span id="HaddockArgs"><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-var">HaddockArgs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="HaddockArgs"><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-var">HaddockArgs</span></a></span></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-89"></span><span> </span><span id="argInterfaceFile"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argInterfaceFile"><span class="hs-identifier hs-var hs-var">argInterfaceFile</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-90"></span><span> </span><span class="hs-comment">-- ^ Path to the interface file, relative to argOutputDir, required.</span><span>
</span><span id="line-91"></span><span> </span><span id="argPackageName"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag PackageIdentifier
</span><a href="Distribution.Simple.Haddock.html#argPackageName"><span class="hs-identifier hs-var hs-var">argPackageName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.PackageId.html#PackageIdentifier"><span class="hs-identifier hs-type">PackageIdentifier</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-92"></span><span> </span><span class="hs-comment">-- ^ Package name, required.</span><span>
</span><span id="line-93"></span><span> </span><span id="argHideModules"><span class="annot"><span class="annottext">HaddockArgs -&gt; (All, [ModuleName])
</span><a href="Distribution.Simple.Haddock.html#argHideModules"><span class="hs-identifier hs-var hs-var">argHideModules</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Semigroup.Internal.html#All"><span class="hs-identifier hs-type">All</span></a></span><span class="hs-special">,</span><span class="hs-special">[</span><span class="annot"><a href="Distribution.ModuleName.html#ModuleName"><span class="hs-identifier hs-type">ModuleName.ModuleName</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-94"></span><span> </span><span class="hs-comment">-- ^ (Hide modules ?, modules to hide)</span><span>
</span><span id="line-95"></span><span> </span><span id="argIgnoreExports"><span class="annot"><span class="annottext">HaddockArgs -&gt; Any
</span><a href="Distribution.Simple.Haddock.html#argIgnoreExports"><span class="hs-identifier hs-var hs-var">argIgnoreExports</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Semigroup.Internal.html#Any"><span class="hs-identifier hs-type">Any</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-96"></span><span> </span><span class="hs-comment">-- ^ Ignore export lists in modules?</span><span>
</span><span id="line-97"></span><span> </span><span id="argLinkSource"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag (FilePath, FilePath, FilePath)
</span><a href="Distribution.Simple.Haddock.html#argLinkSource"><span class="hs-identifier hs-var hs-var">argLinkSource</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Simple.Haddock.html#Template"><span class="hs-identifier hs-type">Template</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Distribution.Simple.Haddock.html#Template"><span class="hs-identifier hs-type">Template</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Distribution.Simple.Haddock.html#Template"><span class="hs-identifier hs-type">Template</span></a></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-98"></span><span> </span><span class="hs-comment">-- ^ (Template for modules, template for symbols, template for lines).</span><span>
</span><span id="line-99"></span><span> </span><span id="argLinkedSource"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argLinkedSource"><span class="hs-identifier hs-var hs-var">argLinkedSource</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span class="hs-special">,</span><span>
</span><span id="line-100"></span><span> </span><span class="hs-comment">-- ^ Generate hyperlinked sources</span><span>
</span><span id="line-101"></span><span> </span><span id="argQuickJump"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argQuickJump"><span class="hs-identifier hs-var hs-var">argQuickJump</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span class="hs-special">,</span><span>
</span><span id="line-102"></span><span> </span><span class="hs-comment">-- ^ Generate quickjump index</span><span>
</span><span id="line-103"></span><span> </span><span id="argCssFile"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argCssFile"><span class="hs-identifier hs-var hs-var">argCssFile</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-104"></span><span> </span><span class="hs-comment">-- ^ Optional custom CSS file.</span><span>
</span><span id="line-105"></span><span> </span><span id="argContents"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argContents"><span class="hs-identifier hs-var hs-var">argContents</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-106"></span><span> </span><span class="hs-comment">-- ^ Optional URL to contents page.</span><span>
</span><span id="line-107"></span><span> </span><span id="argVerbose"><span class="annot"><span class="annottext">HaddockArgs -&gt; Any
</span><a href="Distribution.Simple.Haddock.html#argVerbose"><span class="hs-identifier hs-var hs-var">argVerbose</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Semigroup.Internal.html#Any"><span class="hs-identifier hs-type">Any</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-108"></span><span> </span><span id="argOutput"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag [Output]
</span><a href="Distribution.Simple.Haddock.html#argOutput"><span class="hs-identifier hs-var hs-var">argOutput</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Simple.Haddock.html#Output"><span class="hs-identifier hs-type">Output</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-109"></span><span> </span><span class="hs-comment">-- ^ HTML or Hoogle doc or both? Required.</span><span>
</span><span id="line-110"></span><span> </span><span id="argInterfaces"><span class="annot"><span class="annottext">HaddockArgs -&gt; [(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="Distribution.Simple.Haddock.html#argInterfaces"><span class="hs-identifier hs-var hs-var">argInterfaces</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-111"></span><span> </span><span class="hs-comment">-- ^ [(Interface file, URL to the HTML docs and hyperlinked-source for links)].</span><span>
</span><span id="line-112"></span><span> </span><span id="argOutputDir"><span class="annot"><span class="annottext">HaddockArgs -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var hs-var">argOutputDir</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#Directory"><span class="hs-identifier hs-type">Directory</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-113"></span><span> </span><span class="hs-comment">-- ^ Where to generate the documentation.</span><span>
</span><span id="line-114"></span><span> </span><span id="argTitle"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argTitle"><span class="hs-identifier hs-var hs-var">argTitle</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-115"></span><span> </span><span class="hs-comment">-- ^ Page title, required.</span><span>
</span><span id="line-116"></span><span> </span><span id="argPrologue"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argPrologue"><span class="hs-identifier hs-var hs-var">argPrologue</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-117"></span><span> </span><span class="hs-comment">-- ^ Prologue text, required.</span><span>
</span><span id="line-118"></span><span> </span><span id="argGhcOptions"><span class="annot"><span class="annottext">HaddockArgs -&gt; GhcOptions
</span><a href="Distribution.Simple.Haddock.html#argGhcOptions"><span class="hs-identifier hs-var hs-var">argGhcOptions</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.GHC.html#GhcOptions"><span class="hs-identifier hs-type">GhcOptions</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-119"></span><span> </span><span class="hs-comment">-- ^ Additional flags to pass to GHC.</span><span>
</span><span id="line-120"></span><span> </span><span id="argGhcLibDir"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argGhcLibDir"><span class="hs-identifier hs-var hs-var">argGhcLibDir</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-121"></span><span> </span><span class="hs-comment">-- ^ To find the correct GHC, required.</span><span>
</span><span id="line-122"></span><span> </span><span id="argReexports"><span class="annot"><span class="annottext">HaddockArgs -&gt; [OpenModule]
</span><a href="Distribution.Simple.Haddock.html#argReexports"><span class="hs-identifier hs-var hs-var">argReexports</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Backpack.html#OpenModule"><span class="hs-identifier hs-type">OpenModule</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-123"></span><span> </span><span class="hs-comment">-- ^ Re-exported modules</span><span>
</span><span id="line-124"></span><span> </span><span id="argTargets"><span class="annot"><span class="annottext">HaddockArgs -&gt; [FilePath]
</span><a href="Distribution.Simple.Haddock.html#argTargets"><span class="hs-identifier hs-var hs-var">argTargets</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-125"></span><span> </span><span class="hs-comment">-- ^ Modules to process.</span><span>
</span><span id="line-126"></span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="annot"><span class="annottext">(forall x. HaddockArgs -&gt; Rep HaddockArgs x)
-&gt; (forall x. Rep HaddockArgs x -&gt; HaddockArgs)
-&gt; Generic HaddockArgs
forall x. Rep HaddockArgs x -&gt; HaddockArgs
forall x. HaddockArgs -&gt; Rep HaddockArgs x
forall a.
(forall x. a -&gt; Rep a x) -&gt; (forall x. Rep a x -&gt; a) -&gt; Generic a
$cto :: forall x. Rep HaddockArgs x -&gt; HaddockArgs
$cfrom :: forall x. HaddockArgs -&gt; Rep HaddockArgs x
</span><a href="../../base/src/GHC.Generics.html#Generic"><span class="hs-identifier hs-var hs-var hs-var hs-var">Generic</span></a></span><span>
</span><span id="line-127"></span><span>
</span><span id="line-128"></span><span class="hs-comment">-- | The FilePath of a directory, it's a monoid under '(&lt;/&gt;)'.</span><span>
</span><span id="line-129"></span><span class="hs-keyword">newtype</span><span> </span><span id="Directory"><span class="annot"><a href="Distribution.Simple.Haddock.html#Directory"><span class="hs-identifier hs-var">Directory</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Dir"><span class="annot"><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="unDir%27"><span class="annot"><span class="annottext">Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir%27"><span class="hs-identifier hs-var hs-var">unDir'</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679731270"><span id="local-6989586621679731281"><span id="local-6989586621679731284"><span id="local-6989586621679731286"><span class="annot"><span class="annottext">ReadPrec [Directory]
ReadPrec Directory
Int -&gt; ReadS Directory
ReadS [Directory]
(Int -&gt; ReadS Directory)
-&gt; ReadS [Directory]
-&gt; ReadPrec Directory
-&gt; ReadPrec [Directory]
-&gt; Read Directory
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [Directory]
$creadListPrec :: ReadPrec [Directory]
readPrec :: ReadPrec Directory
$creadPrec :: ReadPrec Directory
readList :: ReadS [Directory]
$creadList :: ReadS [Directory]
readsPrec :: Int -&gt; ReadS Directory
$creadsPrec :: Int -&gt; ReadS Directory
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679731257"><span id="local-6989586621679731259"><span id="local-6989586621679731265"><span class="annot"><span class="annottext">Int -&gt; Directory -&gt; ShowS
[Directory] -&gt; ShowS
Directory -&gt; FilePath
(Int -&gt; Directory -&gt; ShowS)
-&gt; (Directory -&gt; FilePath)
-&gt; ([Directory] -&gt; ShowS)
-&gt; Show Directory
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; FilePath) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [Directory] -&gt; ShowS
$cshowList :: [Directory] -&gt; ShowS
show :: Directory -&gt; FilePath
$cshow :: Directory -&gt; FilePath
showsPrec :: Int -&gt; Directory -&gt; ShowS
$cshowsPrec :: Int -&gt; Directory -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679731247"><span id="local-6989586621679731253"><span class="annot"><span class="annottext">Directory -&gt; Directory -&gt; Bool
(Directory -&gt; Directory -&gt; Bool)
-&gt; (Directory -&gt; Directory -&gt; Bool) -&gt; Eq Directory
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: Directory -&gt; Directory -&gt; Bool
$c/= :: Directory -&gt; Directory -&gt; Bool
== :: Directory -&gt; Directory -&gt; Bool
$c== :: Directory -&gt; Directory -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679731206"><span id="local-6989586621679731211"><span id="local-6989586621679731216"><span id="local-6989586621679731221"><span id="local-6989586621679731226"><span id="local-6989586621679731231"><span id="local-6989586621679731237"><span class="annot"><span class="annottext">Eq Directory
Eq Directory
-&gt; (Directory -&gt; Directory -&gt; Ordering)
-&gt; (Directory -&gt; Directory -&gt; Bool)
-&gt; (Directory -&gt; Directory -&gt; Bool)
-&gt; (Directory -&gt; Directory -&gt; Bool)
-&gt; (Directory -&gt; Directory -&gt; Bool)
-&gt; (Directory -&gt; Directory -&gt; Directory)
-&gt; (Directory -&gt; Directory -&gt; Directory)
-&gt; Ord Directory
Directory -&gt; Directory -&gt; Bool
Directory -&gt; Directory -&gt; Ordering
Directory -&gt; Directory -&gt; Directory
forall a.
Eq a
-&gt; (a -&gt; a -&gt; Ordering)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; a)
-&gt; (a -&gt; a -&gt; a)
-&gt; Ord a
min :: Directory -&gt; Directory -&gt; Directory
$cmin :: Directory -&gt; Directory -&gt; Directory
max :: Directory -&gt; Directory -&gt; Directory
$cmax :: Directory -&gt; Directory -&gt; Directory
&gt;= :: Directory -&gt; Directory -&gt; Bool
$c&gt;= :: Directory -&gt; Directory -&gt; Bool
&gt; :: Directory -&gt; Directory -&gt; Bool
$c&gt; :: Directory -&gt; Directory -&gt; Bool
&lt;= :: Directory -&gt; Directory -&gt; Bool
$c&lt;= :: Directory -&gt; Directory -&gt; Bool
&lt; :: Directory -&gt; Directory -&gt; Bool
$c&lt; :: Directory -&gt; Directory -&gt; Bool
compare :: Directory -&gt; Directory -&gt; Ordering
$ccompare :: Directory -&gt; Directory -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Ord</span></span></span></span></span></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-130"></span><span>
</span><span id="line-131"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#unDir"><span class="hs-identifier hs-type">unDir</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#Directory"><span class="hs-identifier hs-type">Directory</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-132"></span><span id="unDir"><span class="annot"><span class="annottext">unDir :: Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir"><span class="hs-identifier hs-var hs-var">unDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#normalise"><span class="hs-identifier hs-var">normalise</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; (Directory -&gt; FilePath) -&gt; Directory -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir%27"><span class="hs-identifier hs-var hs-var">unDir'</span></a></span><span>
</span><span id="line-133"></span><span>
</span><span id="line-134"></span><span class="hs-keyword">type</span><span> </span><span id="Template"><span class="annot"><a href="Distribution.Simple.Haddock.html#Template"><span class="hs-identifier hs-var">Template</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-135"></span><span>
</span><span id="line-136"></span><span class="hs-keyword">data</span><span> </span><span id="Output"><span class="annot"><a href="Distribution.Simple.Haddock.html#Output"><span class="hs-identifier hs-var">Output</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Html"><span class="annot"><a href="Distribution.Simple.Haddock.html#Html"><span class="hs-identifier hs-var">Html</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="Hoogle"><span class="annot"><a href="Distribution.Simple.Haddock.html#Hoogle"><span class="hs-identifier hs-var">Hoogle</span></a></span></span><span>
</span><span id="line-137"></span><span>
</span><span id="line-138"></span><span class="hs-comment">-- ------------------------------------------------------------------------------</span><span>
</span><span id="line-139"></span><span class="hs-comment">-- Haddock support</span><span>
</span><span id="line-140"></span><span>
</span><span id="line-141"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddock"><span class="hs-identifier hs-type">haddock</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.PackageDescription.html#PackageDescription"><span class="hs-identifier hs-type">PackageDescription</span></a></span><span>
</span><span id="line-142"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-143"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Simple.PreProcess.html#PPSuffixHandler"><span class="hs-identifier hs-type">PPSuffixHandler</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-144"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HaddockFlags"><span class="hs-identifier hs-type">HaddockFlags</span></a></span><span>
</span><span id="line-145"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-146"></span><span id="haddock"><span class="annot"><span class="annottext">haddock :: PackageDescription
-&gt; LocalBuildInfo -&gt; [PPSuffixHandler] -&gt; HaddockFlags -&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#haddock"><span class="hs-identifier hs-var hs-var">haddock</span></a></span></span><span> </span><span id="local-6989586621679731195"><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731195"><span class="hs-identifier hs-var">pkg_descr</span></a></span></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[PPSuffixHandler]
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679731194"><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731194"><span class="hs-identifier hs-var">haddockFlags</span></a></span></span><span>
</span><span id="line-147"></span><span>  </span><span class="hs-glyph">|</span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; Bool
</span><a href="Distribution.Types.PackageDescription.html#hasLibs"><span class="hs-identifier hs-var">hasLibs</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731195"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-148"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool) -&gt; Flag Bool -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockExecutables"><span class="hs-identifier hs-var hs-var">haddockExecutables</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731194"><span class="hs-identifier hs-var">haddockFlags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-149"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool) -&gt; Flag Bool -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockTestSuites"><span class="hs-identifier hs-var hs-var">haddockTestSuites</span></a></span><span>  </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731194"><span class="hs-identifier hs-var">haddockFlags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-150"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool) -&gt; Flag Bool -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockBenchmarks"><span class="hs-identifier hs-var hs-var">haddockBenchmarks</span></a></span><span>  </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731194"><span class="hs-identifier hs-var">haddockFlags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-151"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool) -&gt; Flag Bool -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockForeignLibs"><span class="hs-identifier hs-var hs-var">haddockForeignLibs</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731194"><span class="hs-identifier hs-var">haddockFlags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-152"></span><span>    </span><span class="hs-glyph">=</span><span>
</span><span id="line-153"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Verbosity -&gt; Verbosity
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Verbosity -&gt; Verbosity) -&gt; Flag Verbosity -&gt; Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#haddockVerbosity"><span class="hs-identifier hs-var hs-var">haddockVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731194"><span class="hs-identifier hs-var">haddockFlags</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-154"></span><span>           </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;No documentation was generated as this package does not contain &quot;</span></span><span>
</span><span id="line-155"></span><span>        </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;a library. Perhaps you want to use the --executables, --tests,&quot;</span></span><span>
</span><span id="line-156"></span><span>        </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot; --benchmarks or --foreign-libraries flags.&quot;</span></span><span>
</span><span id="line-157"></span><span>
</span><span id="line-158"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddock"><span class="hs-identifier hs-var">haddock</span></a></span><span> </span><span id="local-6989586621679731183"><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span></span><span> </span><span id="local-6989586621679731182"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679731181"><span class="annot"><span class="annottext">[PPSuffixHandler]
</span><a href="#local-6989586621679731181"><span class="hs-identifier hs-var">suffixes</span></a></span></span><span> </span><span id="local-6989586621679731180"><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731180"><span class="hs-identifier hs-var">flags'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-159"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731179"><span class="annot"><span class="annottext">verbosity :: Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var hs-var">verbosity</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Verbosity) -&gt; Verbosity
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#haddockVerbosity"><span class="hs-identifier hs-var hs-var">haddockVerbosity</span></a></span><span>
</span><span id="line-160"></span><span>        </span><span id="local-6989586621679731177"><span class="annot"><span class="annottext">comp :: Compiler
</span><a href="#local-6989586621679731177"><span class="hs-identifier hs-var hs-var">comp</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Compiler
</span><a href="Distribution.Types.LocalBuildInfo.html#compiler"><span class="hs-identifier hs-var hs-var">compiler</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-161"></span><span>        </span><span id="local-6989586621679731175"><span class="annot"><span class="annottext">platform :: Platform
</span><a href="#local-6989586621679731175"><span class="hs-identifier hs-var hs-var">platform</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Platform
</span><a href="Distribution.Types.LocalBuildInfo.html#hostPlatform"><span class="hs-identifier hs-var hs-var">hostPlatform</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-162"></span><span>
</span><span id="line-163"></span><span>        </span><span id="local-6989586621679731173"><span class="annot"><span class="annottext">quickJmpFlag :: Flag Bool
</span><a href="#local-6989586621679731173"><span class="hs-identifier hs-var hs-var">quickJmpFlag</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockQuickJump"><span class="hs-identifier hs-var hs-var">haddockQuickJump</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731180"><span class="hs-identifier hs-var">flags'</span></a></span><span>
</span><span id="line-164"></span><span>        </span><span id="local-6989586621679731171"><span class="annot"><span class="annottext">flags :: HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var hs-var">flags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679731170"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-165"></span><span>          </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="Distribution.Simple.Setup.html#ForDevelopment"><span class="hs-identifier hs-var">ForDevelopment</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731180"><span class="hs-identifier hs-var">flags'</span></a></span><span>
</span><span id="line-166"></span><span>          </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="Distribution.Simple.Setup.html#ForHackage"><span class="hs-identifier hs-var">ForHackage</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731180"><span class="hs-identifier hs-var">flags'</span></a></span><span>
</span><span id="line-167"></span><span>            </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">haddockHoogle :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockHoogle"><span class="hs-identifier hs-var">haddockHoogle</span></a></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Flag Bool
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-168"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">haddockHtml :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockHtml"><span class="hs-identifier hs-var">haddockHtml</span></a></span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Flag Bool
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-169"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">haddockHtmlLocation :: Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockHtmlLocation"><span class="hs-identifier hs-var">haddockHtmlLocation</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731163"><span class="hs-identifier hs-var">pkg_url</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;/docs&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-170"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">haddockContents :: Flag PathTemplate
</span><a href="Distribution.Simple.Setup.html#haddockContents"><span class="hs-identifier hs-var">haddockContents</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PathTemplate -&gt; Flag PathTemplate
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; PathTemplate
</span><a href="Distribution.Simple.InstallDirs.html#toPathTemplate"><span class="hs-identifier hs-var">toPathTemplate</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731163"><span class="hs-identifier hs-var">pkg_url</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-171"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">haddockLinkedSource :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockLinkedSource"><span class="hs-identifier hs-var">haddockLinkedSource</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Flag Bool
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-172"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">haddockQuickJump :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockQuickJump"><span class="hs-identifier hs-var">haddockQuickJump</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Flag Bool
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-173"></span><span>            </span><span class="hs-special">}</span><span>
</span><span id="line-174"></span><span>        </span><span id="local-6989586621679731163"><span class="annot"><span class="annottext">pkg_url :: FilePath
</span><a href="#local-6989586621679731163"><span class="hs-identifier hs-var hs-var">pkg_url</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;/package/$pkg-$version&quot;</span></span><span>
</span><span id="line-175"></span><span>        </span><span id="local-6989586621679731178"><span class="annot"><span class="annottext">flag :: (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var hs-var">flag</span></a></span></span><span> </span><span id="local-6989586621679731157"><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag a
</span><a href="#local-6989586621679731157"><span class="hs-identifier hs-var">f</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Flag a -&gt; a
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag a -&gt; a) -&gt; Flag a -&gt; a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag a
</span><a href="#local-6989586621679731157"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-176"></span><span>
</span><span id="line-177"></span><span>        </span><span id="local-6989586621679731156"><span class="annot"><span class="annottext">tmpFileOpts :: TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var hs-var">tmpFileOpts</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="Distribution.Simple.Utils.html#defaultTempFileOptions"><span class="hs-identifier hs-var">defaultTempFileOptions</span></a></span><span>
</span><span id="line-178"></span><span>                       </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">optKeepTempFiles :: Bool
</span><a href="Distribution.Simple.Utils.html#optKeepTempFiles"><span class="hs-identifier hs-var">optKeepTempFiles</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockKeepTempFiles"><span class="hs-identifier hs-var hs-var">haddockKeepTempFiles</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-179"></span><span>        </span><span id="local-6989586621679731150"><span class="annot"><span class="annottext">htmlTemplate :: Maybe PathTemplate
</span><a href="#local-6989586621679731150"><span class="hs-identifier hs-var hs-var">htmlTemplate</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; PathTemplate) -&gt; Maybe FilePath -&gt; Maybe PathTemplate
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; PathTemplate
</span><a href="Distribution.Simple.InstallDirs.html#toPathTemplate"><span class="hs-identifier hs-var">toPathTemplate</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe FilePath -&gt; Maybe PathTemplate)
-&gt; (HaddockFlags -&gt; Maybe FilePath)
-&gt; HaddockFlags
-&gt; Maybe PathTemplate
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; Maybe FilePath
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; Maybe FilePath)
-&gt; (HaddockFlags -&gt; Flag FilePath)
-&gt; HaddockFlags
-&gt; Maybe FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockHtmlLocation"><span class="hs-identifier hs-var hs-var">haddockHtmlLocation</span></a></span><span>
</span><span id="line-180"></span><span>                        </span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Maybe PathTemplate)
-&gt; HaddockFlags -&gt; Maybe PathTemplate
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-181"></span><span>        </span><span id="local-6989586621679731170"><span class="annot"><span class="annottext">haddockTarget :: HaddockTarget
</span><a href="#local-6989586621679731170"><span class="hs-identifier hs-var hs-var">haddockTarget</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-182"></span><span>          </span><span class="annot"><span class="annottext">HaddockTarget -&gt; Flag HaddockTarget -&gt; HaddockTarget
forall a. a -&gt; Flag a -&gt; a
</span><a href="Distribution.Simple.Flag.html#fromFlagOrDefault"><span class="hs-identifier hs-var">fromFlagOrDefault</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="Distribution.Simple.Setup.html#ForDevelopment"><span class="hs-identifier hs-var">ForDevelopment</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag HaddockTarget
</span><a href="Distribution.Simple.Setup.html#haddockForHackage"><span class="hs-identifier hs-var hs-var">haddockForHackage</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731180"><span class="hs-identifier hs-var">flags'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-183"></span><span>
</span><span id="line-184"></span><span>    </span><span class="hs-special">(</span><span id="local-6989586621679731146"><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679731146"><span class="hs-identifier hs-var">haddockProg</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679731145"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ProgramDb
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span>
</span><span id="line-185"></span><span>      </span><span class="annot"><span class="annottext">Verbosity
-&gt; Program
-&gt; VersionRange
-&gt; ProgramDb
-&gt; IO (ConfiguredProgram, Version, ProgramDb)
</span><a href="Distribution.Simple.Program.Db.html#requireProgramVersion"><span class="hs-identifier hs-var">requireProgramVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Program
</span><a href="Distribution.Simple.Program.Builtin.html#haddockProgram"><span class="hs-identifier hs-var">haddockProgram</span></a></span><span>
</span><span id="line-186"></span><span>        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Version -&gt; VersionRange
</span><a href="Distribution.Types.VersionRange.Internal.html#orLaterVersion"><span class="hs-identifier hs-var">orLaterVersion</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; ProgramDb
</span><a href="Distribution.Types.LocalBuildInfo.html#withPrograms"><span class="hs-identifier hs-var hs-var">withPrograms</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-187"></span><span>
</span><span id="line-188"></span><span>    </span><span class="hs-comment">-- various sanity checks</span><span>
</span><span id="line-189"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockHoogle"><span class="hs-identifier hs-var hs-var">haddockHoogle</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-190"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Haddock 2.0 and 2.1 do not support the --hoogle flag.&quot;</span></span><span>
</span><span id="line-191"></span><span>
</span><span id="line-192"></span><span>
</span><span id="line-193"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockQuickJump"><span class="hs-identifier hs-var hs-var">haddockQuickJump</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">19</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-194"></span><span>      </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731136"><span class="annot"><span class="annottext">msg :: FilePath
</span><a href="#local-6989586621679731136"><span class="hs-identifier hs-var hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Haddock prior to 2.19 does not support the --quickjump flag.&quot;</span></span><span>
</span><span id="line-195"></span><span>          </span><span id="local-6989586621679731135"><span class="annot"><span class="annottext">alt :: FilePath
</span><a href="#local-6989586621679731135"><span class="hs-identifier hs-var hs-var">alt</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;The generated documentation won't have the QuickJump feature.&quot;</span></span><span>
</span><span id="line-196"></span><span>      </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Flag Bool
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Flag Bool -&gt; Flag Bool -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Flag Bool
</span><a href="#local-6989586621679731173"><span class="hs-identifier hs-var">quickJmpFlag</span></a></span><span>
</span><span id="line-197"></span><span>        </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731136"><span class="hs-identifier hs-var">msg</span></a></span><span>
</span><span id="line-198"></span><span>        </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731136"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;\n&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731135"><span class="hs-identifier hs-var">alt</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-199"></span><span>
</span><span id="line-200"></span><span>    </span><span id="local-6989586621679731134"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731134"><span class="hs-identifier hs-var">haddockGhcVersionStr</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; ConfiguredProgram -&gt; [FilePath] -&gt; IO FilePath
</span><a href="Distribution.Simple.Program.html#getProgramOutput"><span class="hs-identifier hs-var">getProgramOutput</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679731146"><span class="hs-identifier hs-var">haddockProg</span></a></span><span>
</span><span id="line-201"></span><span>                              </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--ghc-version&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-202"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; Maybe Version
forall a. Parsec a =&gt; FilePath -&gt; Maybe a
</span><a href="Distribution.Parsec.html#simpleParsec"><span class="hs-identifier hs-var">simpleParsec</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731134"><span class="hs-identifier hs-var">haddockGhcVersionStr</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">CompilerFlavor -&gt; Compiler -&gt; Maybe Version
</span><a href="Distribution.Simple.Compiler.html#compilerCompatVersion"><span class="hs-identifier hs-var">compilerCompatVersion</span></a></span><span> </span><span class="annot"><span class="annottext">CompilerFlavor
</span><a href="Distribution.Compiler.html#GHC"><span class="hs-identifier hs-var">GHC</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679731177"><span class="hs-identifier hs-var">comp</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-203"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Version
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Could not get GHC version from Haddock&quot;</span></span><span>
</span><span id="line-204"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Could not get GHC version from compiler&quot;</span></span><span>
</span><span id="line-205"></span><span>      </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679731130"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731130"><span class="hs-identifier hs-var">haddockGhcVersion</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679731129"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731129"><span class="hs-identifier hs-var">ghcVersion</span></a></span></span><span class="hs-special">)</span><span>
</span><span id="line-206"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731130"><span class="hs-identifier hs-var">haddockGhcVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731129"><span class="hs-identifier hs-var">ghcVersion</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">() -&gt; IO ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-207"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-208"></span><span>               </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Haddock's internal GHC version must match the configured &quot;</span></span><span>
</span><span id="line-209"></span><span>            </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;GHC version.\n&quot;</span></span><span>
</span><span id="line-210"></span><span>            </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;The GHC version is &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731129"><span class="hs-identifier hs-var">ghcVersion</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot; but &quot;</span></span><span>
</span><span id="line-211"></span><span>            </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;haddock is using GHC version &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731130"><span class="hs-identifier hs-var">haddockGhcVersion</span></a></span><span>
</span><span id="line-212"></span><span>
</span><span id="line-213"></span><span>    </span><span class="hs-comment">-- the tools match the requests, we can proceed</span><span>
</span><span id="line-214"></span><span>
</span><span id="line-215"></span><span>    </span><span class="hs-comment">-- We fall back to using HsColour only for versions of Haddock which don't</span><span>
</span><span id="line-216"></span><span>    </span><span class="hs-comment">-- support '--hyperlinked-sources'.</span><span>
</span><span id="line-217"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockLinkedSource"><span class="hs-identifier hs-var hs-var">haddockLinkedSource</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">17</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-218"></span><span>      </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ())
-&gt; HaddockTarget
-&gt; PackageDescription
-&gt; LocalBuildInfo
-&gt; [PPSuffixHandler]
-&gt; HscolourFlags
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#hscolour%27"><span class="hs-identifier hs-var">hscolour'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679731170"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">[PPSuffixHandler]
</span><a href="#local-6989586621679731181"><span class="hs-identifier hs-var">suffixes</span></a></span><span>
</span><span id="line-219"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="Distribution.Simple.Setup.html#defaultHscolourFlags"><span class="hs-identifier hs-var">defaultHscolourFlags</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags -&gt; HscolourFlags -&gt; HscolourFlags
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-operator hs-var">`mappend`</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; HscolourFlags
</span><a href="Distribution.Simple.Haddock.html#haddockToHscolour"><span class="hs-identifier hs-var">haddockToHscolour</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-220"></span><span>
</span><span id="line-221"></span><span>    </span><span id="local-6989586621679731124"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731124"><span class="hs-identifier hs-var">libdirArgs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; LocalBuildInfo -&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#getGhcLibDir"><span class="hs-identifier hs-var">getGhcLibDir</span></a></span><span>  </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-222"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731120"><span class="annot"><span class="annottext">commonArgs :: HaddockArgs
</span><a href="#local-6989586621679731120"><span class="hs-identifier hs-var hs-var">commonArgs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[HaddockArgs] -&gt; HaddockArgs
forall a. Monoid a =&gt; [a] -&gt; a
</span><a href="../../base/src/GHC.Base.html#mconcat"><span class="hs-identifier hs-var">mconcat</span></a></span><span>
</span><span id="line-223"></span><span>            </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731124"><span class="hs-identifier hs-var">libdirArgs</span></a></span><span>
</span><span id="line-224"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">PathTemplateEnv -&gt; HaddockFlags -&gt; HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromFlags"><span class="hs-identifier hs-var">fromFlags</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; PackageIdentifier -&gt; PathTemplateEnv
</span><a href="Distribution.Simple.Haddock.html#haddockTemplateEnv"><span class="hs-identifier hs-var">haddockTemplateEnv</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-225"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">HaddockTarget -&gt; PackageDescription -&gt; HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromPackageDescription"><span class="hs-identifier hs-var">fromPackageDescription</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679731170"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-226"></span><span>
</span><span id="line-227"></span><span>    </span><span id="local-6989586621679731115"><span class="annot"><span class="annottext">[TargetInfo]
</span><a href="#local-6989586621679731115"><span class="hs-identifier hs-var">targets</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; PackageDescription
-&gt; LocalBuildInfo
-&gt; [FilePath]
-&gt; IO [TargetInfo]
</span><a href="Distribution.Simple.BuildTarget.html#readTargetInfos"><span class="hs-identifier hs-var">readTargetInfos</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockFlags -&gt; [FilePath]
</span><a href="Distribution.Simple.Setup.html#haddockArgs"><span class="hs-identifier hs-var hs-var">haddockArgs</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-228"></span><span>
</span><span id="line-229"></span><span>    </span><span class="hs-keyword">let</span><span>
</span><span id="line-230"></span><span>      </span><span id="local-6989586621679731112"><span class="annot"><span class="annottext">targets' :: [TargetInfo]
</span><a href="#local-6989586621679731112"><span class="hs-identifier hs-var hs-var">targets'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-231"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">[TargetInfo]
</span><a href="#local-6989586621679731115"><span class="hs-identifier hs-var">targets</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-232"></span><span>          </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PackageDescription -&gt; LocalBuildInfo -&gt; [TargetInfo]
</span><a href="Distribution.Types.LocalBuildInfo.html#allTargetsInBuildOrder%27"><span class="hs-identifier hs-var">allTargetsInBuildOrder'</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-233"></span><span>          </span><span class="annot"><span class="annottext">[TargetInfo]
</span><span class="hs-identifier">_</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[TargetInfo]
</span><a href="#local-6989586621679731115"><span class="hs-identifier hs-var">targets</span></a></span><span>
</span><span id="line-234"></span><span>
</span><span id="line-235"></span><span>    </span><span id="local-6989586621679731110"><span class="annot"><span class="annottext">PackageDB
</span><a href="#local-6989586621679731110"><span class="hs-identifier hs-var">internalPackageDB</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span>
</span><span id="line-236"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; LocalBuildInfo -&gt; FilePath -&gt; IO PackageDB
</span><a href="Distribution.Simple.Build.html#createInternalPackageDB"><span class="hs-identifier hs-var">createInternalPackageDB</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag FilePath) -&gt; FilePath
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockDistPref"><span class="hs-identifier hs-var hs-var">haddockDistPref</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-237"></span><span>
</span><span id="line-238"></span><span>    </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679731107"><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; TargetInfo -&gt; IO InstalledPackageIndex
</span><a href="#local-6989586621679731107"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(InstalledPackageIndex -&gt; TargetInfo -&gt; IO InstalledPackageIndex)
-&gt; InstalledPackageIndex -&gt; [TargetInfo] -&gt; IO ()
forall (t :: * -&gt; *) (m :: * -&gt; *) b a.
(Foldable t, Monad m) =&gt;
(b -&gt; a -&gt; m b) -&gt; b -&gt; t a -&gt; m ()
</span><a href="../../base/src/Control.Monad.html#foldM_"><span class="hs-identifier hs-var">foldM_</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; TargetInfo -&gt; IO InstalledPackageIndex
</span><a href="#local-6989586621679731107"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; InstalledPackageIndex
</span><a href="Distribution.Types.LocalBuildInfo.html#installedPkgs"><span class="hs-identifier hs-var hs-var">installedPkgs</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[TargetInfo]
</span><a href="#local-6989586621679731112"><span class="hs-identifier hs-var">targets'</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((InstalledPackageIndex -&gt; TargetInfo -&gt; IO InstalledPackageIndex)
 -&gt; IO ())
-&gt; (InstalledPackageIndex
    -&gt; TargetInfo -&gt; IO InstalledPackageIndex)
-&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679731104"><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span></span><span> </span><span id="local-6989586621679731103"><span class="annot"><span class="annottext">TargetInfo
</span><a href="#local-6989586621679731103"><span class="hs-identifier hs-var">target</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-239"></span><span>
</span><span id="line-240"></span><span>      </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731102"><span class="annot"><span class="annottext">component :: Component
</span><a href="#local-6989586621679731102"><span class="hs-identifier hs-var hs-var">component</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TargetInfo -&gt; Component
</span><a href="Distribution.Types.TargetInfo.html#targetComponent"><span class="hs-identifier hs-var hs-var">targetComponent</span></a></span><span> </span><span class="annot"><span class="annottext">TargetInfo
</span><a href="#local-6989586621679731103"><span class="hs-identifier hs-var">target</span></a></span><span>
</span><span id="line-241"></span><span>          </span><span id="local-6989586621679731100"><span class="annot"><span class="annottext">clbi :: ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var hs-var">clbi</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TargetInfo -&gt; ComponentLocalBuildInfo
</span><a href="Distribution.Types.TargetInfo.html#targetCLBI"><span class="hs-identifier hs-var hs-var">targetCLBI</span></a></span><span> </span><span class="annot"><span class="annottext">TargetInfo
</span><a href="#local-6989586621679731103"><span class="hs-identifier hs-var">target</span></a></span><span>
</span><span id="line-242"></span><span>
</span><span id="line-243"></span><span>      </span><span class="annot"><span class="annottext">FilePath
-&gt; PackageDescription
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Verbosity
-&gt; IO ()
</span><a href="Distribution.Simple.Build.html#componentInitialBuildSteps"><span class="hs-identifier hs-var">componentInitialBuildSteps</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag FilePath) -&gt; FilePath
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockDistPref"><span class="hs-identifier hs-var hs-var">haddockDistPref</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span>
</span><span id="line-244"></span><span>
</span><span id="line-245"></span><span>      </span><span class="hs-keyword">let</span><span>
</span><span id="line-246"></span><span>        </span><span id="local-6989586621679731097"><span class="annot"><span class="annottext">lbi' :: LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var hs-var">lbi'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-247"></span><span>          </span><span class="annot"><span class="annottext">withPackageDB :: PackageDBStack
</span><a href="Distribution.Types.LocalBuildInfo.html#withPackageDB"><span class="hs-identifier hs-var">withPackageDB</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; PackageDBStack
</span><a href="Distribution.Types.LocalBuildInfo.html#withPackageDB"><span class="hs-identifier hs-var hs-var">withPackageDB</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDBStack -&gt; PackageDBStack -&gt; PackageDBStack
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">PackageDB
</span><a href="#local-6989586621679731110"><span class="hs-identifier hs-var">internalPackageDB</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-248"></span><span>          </span><span class="annot"><span class="annottext">installedPkgs :: InstalledPackageIndex
</span><a href="Distribution.Types.LocalBuildInfo.html#installedPkgs"><span class="hs-identifier hs-var">installedPkgs</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-249"></span><span>          </span><span class="hs-special">}</span><span>
</span><span id="line-250"></span><span>
</span><span id="line-251"></span><span>      </span><span class="annot"><span class="annottext">PackageDescription
-&gt; Component
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Bool
-&gt; Verbosity
-&gt; [PPSuffixHandler]
-&gt; IO ()
</span><a href="Distribution.Simple.PreProcess.html#preprocessComponent"><span class="hs-identifier hs-var">preprocessComponent</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731102"><span class="hs-identifier hs-var">component</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">[PPSuffixHandler]
</span><a href="#local-6989586621679731181"><span class="hs-identifier hs-var">suffixes</span></a></span><span>
</span><span id="line-252"></span><span>      </span><span class="hs-keyword">let</span><span>
</span><span id="line-253"></span><span>        </span><span id="local-6989586621679731089"><span class="annot"><span class="annottext">doExe :: Component -&gt; IO ()
</span><a href="#local-6989586621679731089"><span class="hs-identifier hs-var hs-var">doExe</span></a></span></span><span> </span><span id="local-6989586621679731088"><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731088"><span class="hs-identifier hs-var">com</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Component -&gt; Maybe Executable
</span><a href="Distribution.Simple.Haddock.html#compToExe"><span class="hs-identifier hs-var">compToExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731088"><span class="hs-identifier hs-var">com</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-254"></span><span>          </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679731086"><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679731086"><span class="hs-identifier hs-var">exe</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-255"></span><span>            </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; (FilePath -&gt; IO ())
-&gt; IO ()
forall a.
Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; (FilePath -&gt; IO a)
-&gt; IO a
</span><a href="Distribution.Simple.Utils.html#withTempDirectoryEx"><span class="hs-identifier hs-var">withTempDirectoryEx</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; FilePath
</span><a href="Distribution.Types.LocalBuildInfo.html#buildDir"><span class="hs-identifier hs-var hs-var">buildDir</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;tmp&quot;</span></span><span> </span><span class="annot"><span class="annottext">((FilePath -&gt; IO ()) -&gt; IO ()) -&gt; (FilePath -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-256"></span><span>              </span><span class="hs-glyph">\</span><span id="local-6989586621679731083"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731083"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-257"></span><span>                </span><span id="local-6989586621679731082"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731082"><span class="hs-identifier hs-var">exeArgs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; Executable
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromExecutable"><span class="hs-identifier hs-var">fromExecutable</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731083"><span class="hs-identifier hs-var">tmp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679731150"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-258"></span><span>                             </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679731086"><span class="hs-identifier hs-var">exe</span></a></span><span>
</span><span id="line-259"></span><span>                </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731079"><span class="annot"><span class="annottext">exeArgs' :: HaddockArgs
</span><a href="#local-6989586621679731079"><span class="hs-identifier hs-var hs-var">exeArgs'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731120"><span class="hs-identifier hs-var">commonArgs</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-operator hs-var">`mappend`</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731082"><span class="hs-identifier hs-var">exeArgs</span></a></span><span>
</span><span id="line-260"></span><span>                </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; Compiler
-&gt; Platform
-&gt; ConfiguredProgram
-&gt; HaddockArgs
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#runHaddock"><span class="hs-identifier hs-var">runHaddock</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679731177"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679731175"><span class="hs-identifier hs-var">platform</span></a></span><span>
</span><span id="line-261"></span><span>                  </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679731146"><span class="hs-identifier hs-var">haddockProg</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731079"><span class="hs-identifier hs-var">exeArgs'</span></a></span><span>
</span><span id="line-262"></span><span>          </span><span class="annot"><span class="annottext">Maybe Executable
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-263"></span><span>           </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Verbosity -&gt; Verbosity
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Verbosity -&gt; Verbosity) -&gt; Flag Verbosity -&gt; Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#haddockVerbosity"><span class="hs-identifier hs-var hs-var">haddockVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731171"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-264"></span><span>             </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Unsupported component, skipping...&quot;</span></span><span>
</span><span id="line-265"></span><span>           </span><span class="annot"><span class="annottext">() -&gt; IO ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-266"></span><span>        </span><span class="hs-comment">-- We define 'smsg' once and then reuse it inside the case, so that</span><span>
</span><span id="line-267"></span><span>        </span><span class="hs-comment">-- we don't say we are running Haddock when we actually aren't</span><span>
</span><span id="line-268"></span><span>        </span><span class="hs-comment">-- (e.g., Haddock is not run on non-libraries)</span><span>
</span><span id="line-269"></span><span>        </span><span class="annot"><a href="#local-6989586621679731077"><span class="hs-identifier hs-type">smsg</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-270"></span><span>        </span><span id="local-6989586621679731077"><span class="annot"><span class="annottext">smsg :: IO ()
</span><a href="#local-6989586621679731077"><span class="hs-identifier hs-var hs-var">smsg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; PackageIdentifier
-&gt; ComponentName
-&gt; Maybe [(ModuleName, OpenModule)]
-&gt; IO ()
forall a.
Pretty a =&gt;
Verbosity
-&gt; FilePath
-&gt; PackageIdentifier
-&gt; ComponentName
-&gt; Maybe [(ModuleName, a)]
-&gt; IO ()
</span><a href="Distribution.Backpack.DescribeUnitId.html#setupMessage%27"><span class="hs-identifier hs-var">setupMessage'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Running Haddock on&quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-271"></span><span>                </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentLocalBuildInfo -&gt; ComponentName
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#componentLocalName"><span class="hs-identifier hs-var hs-var">componentLocalName</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentLocalBuildInfo -&gt; Maybe [(ModuleName, OpenModule)]
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#maybeComponentInstantiatedWith"><span class="hs-identifier hs-var">maybeComponentInstantiatedWith</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-272"></span><span>      </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731102"><span class="hs-identifier hs-var">component</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-273"></span><span>        </span><span class="annot"><a href="Distribution.Types.Component.html#CLib"><span class="hs-identifier hs-type">CLib</span></a></span><span> </span><span id="local-6989586621679731072"><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679731072"><span class="hs-identifier hs-var">lib</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-274"></span><span>          </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; (FilePath -&gt; IO InstalledPackageIndex)
-&gt; IO InstalledPackageIndex
forall a.
Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; (FilePath -&gt; IO a)
-&gt; IO a
</span><a href="Distribution.Simple.Utils.html#withTempDirectoryEx"><span class="hs-identifier hs-var">withTempDirectoryEx</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; FilePath
</span><a href="Distribution.Types.LocalBuildInfo.html#buildDir"><span class="hs-identifier hs-var hs-var">buildDir</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731182"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;tmp&quot;</span></span><span> </span><span class="annot"><span class="annottext">((FilePath -&gt; IO InstalledPackageIndex)
 -&gt; IO InstalledPackageIndex)
-&gt; (FilePath -&gt; IO InstalledPackageIndex)
-&gt; IO InstalledPackageIndex
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-275"></span><span>            </span><span class="hs-glyph">\</span><span id="local-6989586621679731071"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731071"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-276"></span><span>              </span><span class="annot"><span class="annottext">IO ()
</span><a href="#local-6989586621679731077"><span class="hs-identifier hs-var">smsg</span></a></span><span>
</span><span id="line-277"></span><span>              </span><span id="local-6989586621679731070"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731070"><span class="hs-identifier hs-var">libArgs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; Library
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromLibrary"><span class="hs-identifier hs-var">fromLibrary</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731071"><span class="hs-identifier hs-var">tmp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679731150"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-278"></span><span>                           </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679731072"><span class="hs-identifier hs-var">lib</span></a></span><span>
</span><span id="line-279"></span><span>              </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731067"><span class="annot"><span class="annottext">libArgs' :: HaddockArgs
</span><a href="#local-6989586621679731067"><span class="hs-identifier hs-var hs-var">libArgs'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731120"><span class="hs-identifier hs-var">commonArgs</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-operator hs-var">`mappend`</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731070"><span class="hs-identifier hs-var">libArgs</span></a></span><span>
</span><span id="line-280"></span><span>              </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; Compiler
-&gt; Platform
-&gt; ConfiguredProgram
-&gt; HaddockArgs
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#runHaddock"><span class="hs-identifier hs-var">runHaddock</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679731177"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679731175"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679731146"><span class="hs-identifier hs-var">haddockProg</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731067"><span class="hs-identifier hs-var">libArgs'</span></a></span><span>
</span><span id="line-281"></span><span>
</span><span id="line-282"></span><span>              </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Library -&gt; LibraryName
</span><a href="Distribution.Types.Library.html#libName"><span class="hs-identifier hs-var hs-var">libName</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679731072"><span class="hs-identifier hs-var">lib</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-283"></span><span>                </span><span class="annot"><span class="annottext">LibraryName
</span><a href="Distribution.Types.LibraryName.html#LMainLibName"><span class="hs-identifier hs-var">LMainLibName</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-284"></span><span>                  </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (f :: * -&gt; *) a. Applicative f =&gt; a -&gt; f a
</span><a href="../../base/src/GHC.Base.html#pure"><span class="hs-identifier hs-var">pure</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-285"></span><span>                </span><span class="annot"><a href="Distribution.Types.LibraryName.html#LSubLibName"><span class="hs-identifier hs-type">LSubLibName</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-286"></span><span>                  </span><span id="local-6989586621679731063"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731063"><span class="hs-identifier hs-var">pwd</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">IO FilePath
</span><a href="../../directory/src/System.Directory.html#getCurrentDirectory"><span class="hs-identifier hs-var">getCurrentDirectory</span></a></span><span>
</span><span id="line-287"></span><span>
</span><span id="line-288"></span><span>                  </span><span class="hs-keyword">let</span><span>
</span><span id="line-289"></span><span>                    </span><span id="local-6989586621679731062"><span class="annot"><span class="annottext">ipi :: InstalledPackageInfo
</span><a href="#local-6989586621679731062"><span class="hs-identifier hs-var hs-var">ipi</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
-&gt; FilePath
-&gt; PackageDescription
-&gt; AbiHash
-&gt; Library
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; InstalledPackageInfo
</span><a href="Distribution.Simple.Register.html#inplaceInstalledPackageInfo"><span class="hs-identifier hs-var">inplaceInstalledPackageInfo</span></a></span><span>
</span><span id="line-290"></span><span>                            </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731063"><span class="hs-identifier hs-var">pwd</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag FilePath) -&gt; FilePath
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockDistPref"><span class="hs-identifier hs-var hs-var">haddockDistPref</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-291"></span><span>                            </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; AbiHash
</span><a href="Distribution.Types.AbiHash.html#mkAbiHash"><span class="hs-identifier hs-var">mkAbiHash</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;inplace&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679731072"><span class="hs-identifier hs-var">lib</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-292"></span><span>
</span><span id="line-293"></span><span>                  </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#debug"><span class="hs-identifier hs-var">debug</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Registering inplace:\n&quot;</span></span><span>
</span><span id="line-294"></span><span>                    </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; FilePath
</span><a href="Distribution.InstalledPackageInfo.html#showInstalledPackageInfo"><span class="hs-identifier hs-var">InstalledPackageInfo.showInstalledPackageInfo</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679731062"><span class="hs-identifier hs-var">ipi</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-295"></span><span>
</span><span id="line-296"></span><span>                  </span><span class="annot"><span class="annottext">Verbosity
-&gt; Compiler
-&gt; ProgramDb
-&gt; PackageDBStack
-&gt; InstalledPackageInfo
-&gt; RegisterOptions
-&gt; IO ()
</span><a href="Distribution.Simple.Register.html#registerPackage"><span class="hs-identifier hs-var">registerPackage</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Compiler
</span><a href="Distribution.Types.LocalBuildInfo.html#compiler"><span class="hs-identifier hs-var hs-var">compiler</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; ProgramDb
</span><a href="Distribution.Types.LocalBuildInfo.html#withPrograms"><span class="hs-identifier hs-var hs-var">withPrograms</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-297"></span><span>                    </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; PackageDBStack
</span><a href="Distribution.Types.LocalBuildInfo.html#withPackageDB"><span class="hs-identifier hs-var hs-var">withPackageDB</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679731062"><span class="hs-identifier hs-var">ipi</span></a></span><span>
</span><span id="line-298"></span><span>                    </span><span class="annot"><span class="annottext">RegisterOptions
</span><a href="Distribution.Simple.Program.HcPkg.html#defaultRegisterOptions"><span class="hs-identifier hs-var">HcPkg.defaultRegisterOptions</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-299"></span><span>                      </span><span class="annot"><span class="annottext">registerMultiInstance :: Bool
</span><a href="Distribution.Simple.Program.HcPkg.html#registerMultiInstance"><span class="hs-identifier hs-var">HcPkg.registerMultiInstance</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-300"></span><span>                    </span><span class="hs-special">}</span><span>
</span><span id="line-301"></span><span>
</span><span id="line-302"></span><span>                  </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(InstalledPackageIndex -&gt; IO InstalledPackageIndex)
-&gt; InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
-&gt; InstalledPackageIndex -&gt; InstalledPackageIndex
</span><a href="Distribution.Simple.PackageIndex.html#insert"><span class="hs-identifier hs-var">PackageIndex.insert</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679731062"><span class="hs-identifier hs-var">ipi</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-303"></span><span>
</span><span id="line-304"></span><span>        </span><span class="annot"><a href="Distribution.Types.Component.html#CFLib"><span class="hs-identifier hs-type">CFLib</span></a></span><span> </span><span id="local-6989586621679731052"><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679731052"><span class="hs-identifier hs-var">flib</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockForeignLibs"><span class="hs-identifier hs-var hs-var">haddockForeignLibs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-305"></span><span>          </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; (FilePath -&gt; IO ())
-&gt; IO ()
forall a.
Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; (FilePath -&gt; IO a)
-&gt; IO a
</span><a href="Distribution.Simple.Utils.html#withTempDirectoryEx"><span class="hs-identifier hs-var">withTempDirectoryEx</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; FilePath
</span><a href="Distribution.Types.LocalBuildInfo.html#buildDir"><span class="hs-identifier hs-var hs-var">buildDir</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;tmp&quot;</span></span><span> </span><span class="annot"><span class="annottext">((FilePath -&gt; IO ()) -&gt; IO ()) -&gt; (FilePath -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-306"></span><span>            </span><span class="hs-glyph">\</span><span id="local-6989586621679731051"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731051"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-307"></span><span>              </span><span class="annot"><span class="annottext">IO ()
</span><a href="#local-6989586621679731077"><span class="hs-identifier hs-var">smsg</span></a></span><span>
</span><span id="line-308"></span><span>              </span><span id="local-6989586621679731050"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731050"><span class="hs-identifier hs-var">flibArgs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; ForeignLib
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromForeignLib"><span class="hs-identifier hs-var">fromForeignLib</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731051"><span class="hs-identifier hs-var">tmp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731097"><span class="hs-identifier hs-var">lbi'</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679731100"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679731150"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-309"></span><span>                            </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679731145"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679731052"><span class="hs-identifier hs-var">flib</span></a></span><span>
</span><span id="line-310"></span><span>              </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679731047"><span class="annot"><span class="annottext">libArgs' :: HaddockArgs
</span><a href="#local-6989586621679731047"><span class="hs-identifier hs-var hs-var">libArgs'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731120"><span class="hs-identifier hs-var">commonArgs</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-operator hs-var">`mappend`</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731050"><span class="hs-identifier hs-var">flibArgs</span></a></span><span>
</span><span id="line-311"></span><span>              </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; Compiler
-&gt; Platform
-&gt; ConfiguredProgram
-&gt; HaddockArgs
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#runHaddock"><span class="hs-identifier hs-var">runHaddock</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679731156"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679731177"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679731175"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679731146"><span class="hs-identifier hs-var">haddockProg</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731047"><span class="hs-identifier hs-var">libArgs'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-312"></span><span>
</span><span id="line-313"></span><span>          </span><span class="annot"><span class="annottext">IO () -&gt; IO InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-314"></span><span>
</span><span id="line-315"></span><span>        </span><span class="annot"><a href="Distribution.Types.Component.html#CExe"><span class="hs-identifier hs-type">CExe</span></a></span><span>   </span><span class="annot"><span class="annottext">Executable
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockExecutables"><span class="hs-identifier hs-var hs-var">haddockExecutables</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">IO ()
</span><a href="#local-6989586621679731077"><span class="hs-identifier hs-var">smsg</span></a></span><span> </span><span class="annot"><span class="annottext">IO () -&gt; IO () -&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Component -&gt; IO ()
</span><a href="#local-6989586621679731089"><span class="hs-identifier hs-var">doExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731102"><span class="hs-identifier hs-var">component</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">IO () -&gt; IO InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-316"></span><span>        </span><span class="annot"><a href="Distribution.Types.Component.html#CTest"><span class="hs-identifier hs-type">CTest</span></a></span><span>  </span><span class="annot"><span class="annottext">TestSuite
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockTestSuites"><span class="hs-identifier hs-var hs-var">haddockTestSuites</span></a></span><span class="hs-special">)</span><span>  </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">IO ()
</span><a href="#local-6989586621679731077"><span class="hs-identifier hs-var">smsg</span></a></span><span> </span><span class="annot"><span class="annottext">IO () -&gt; IO () -&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Component -&gt; IO ()
</span><a href="#local-6989586621679731089"><span class="hs-identifier hs-var">doExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731102"><span class="hs-identifier hs-var">component</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">IO () -&gt; IO InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-317"></span><span>        </span><span class="annot"><a href="Distribution.Types.Component.html#CBench"><span class="hs-identifier hs-type">CBench</span></a></span><span> </span><span class="annot"><span class="annottext">Benchmark
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HaddockFlags -&gt; Flag Bool) -&gt; Bool
forall {a}. (HaddockFlags -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679731178"><span class="hs-identifier hs-var">flag</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockBenchmarks"><span class="hs-identifier hs-var hs-var">haddockBenchmarks</span></a></span><span class="hs-special">)</span><span>  </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">IO ()
</span><a href="#local-6989586621679731077"><span class="hs-identifier hs-var">smsg</span></a></span><span> </span><span class="annot"><span class="annottext">IO () -&gt; IO () -&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Component -&gt; IO ()
</span><a href="#local-6989586621679731089"><span class="hs-identifier hs-var">doExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679731102"><span class="hs-identifier hs-var">component</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">IO () -&gt; IO InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; m b -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var">&gt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679731104"><span class="hs-identifier hs-var">index</span></a></span><span>
</span><span id="line-318"></span><span>
</span><span id="line-319"></span><span>    </span><span class="annot"><span class="annottext">[FilePath] -&gt; (FilePath -&gt; IO ()) -&gt; IO ()
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Foldable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f ()
</span><a href="../../base/src/Data.Foldable.html#for_"><span class="hs-identifier hs-var">for_</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; [FilePath]
</span><a href="Distribution.Types.PackageDescription.html#extraDocFiles"><span class="hs-identifier hs-var hs-var">extraDocFiles</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((FilePath -&gt; IO ()) -&gt; IO ()) -&gt; (FilePath -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span id="local-6989586621679731041"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731041"><span class="hs-identifier hs-var">fpath</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-320"></span><span>      </span><span id="local-6989586621679731040"><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679731040"><span class="hs-identifier hs-var">files</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; CabalSpecVersion -&gt; FilePath -&gt; FilePath -&gt; IO [FilePath]
</span><a href="Distribution.Simple.Glob.html#matchDirFileGlob"><span class="hs-identifier hs-var">matchDirFileGlob</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; CabalSpecVersion
</span><a href="Distribution.Types.PackageDescription.html#specVersion"><span class="hs-identifier hs-var hs-var">specVersion</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731183"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;.&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731041"><span class="hs-identifier hs-var">fpath</span></a></span><span>
</span><span id="line-321"></span><span>      </span><span class="annot"><span class="annottext">[FilePath] -&gt; (FilePath -&gt; IO ()) -&gt; IO ()
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Foldable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f ()
</span><a href="../../base/src/Data.Foldable.html#for_"><span class="hs-identifier hs-var">for_</span></a></span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679731040"><span class="hs-identifier hs-var">files</span></a></span><span> </span><span class="annot"><span class="annottext">((FilePath -&gt; IO ()) -&gt; IO ()) -&gt; (FilePath -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#copyFileTo"><span class="hs-identifier hs-var">copyFileTo</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731179"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir"><span class="hs-identifier hs-var">unDir</span></a></span><span> </span><span class="annot"><span class="annottext">(Directory -&gt; FilePath) -&gt; Directory -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var hs-var">argOutputDir</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679731120"><span class="hs-identifier hs-var">commonArgs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-322"></span><span>
</span><span id="line-323"></span><span class="hs-comment">-- ------------------------------------------------------------------------------</span><span>
</span><span id="line-324"></span><span class="hs-comment">-- Contributions to HaddockArgs (see also Doctest.hs for very similar code).</span><span>
</span><span id="line-325"></span><span>
</span><span id="line-326"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#fromFlags"><span class="hs-identifier hs-type">fromFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplateEnv"><span class="hs-identifier hs-type">PathTemplateEnv</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HaddockFlags"><span class="hs-identifier hs-type">HaddockFlags</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-327"></span><span id="fromFlags"><span class="annot"><span class="annottext">fromFlags :: PathTemplateEnv -&gt; HaddockFlags -&gt; HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromFlags"><span class="hs-identifier hs-var hs-var">fromFlags</span></a></span></span><span> </span><span id="local-6989586621679731036"><span class="annot"><span class="annottext">PathTemplateEnv
</span><a href="#local-6989586621679731036"><span class="hs-identifier hs-var">env</span></a></span></span><span> </span><span id="local-6989586621679731035"><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-328"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-329"></span><span>      </span><span class="annot"><span class="annottext">argHideModules :: (All, [ModuleName])
</span><a href="Distribution.Simple.Haddock.html#argHideModules"><span class="hs-identifier hs-var">argHideModules</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">All -&gt; (Bool -&gt; All) -&gt; Maybe Bool -&gt; All
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="annot"><span class="annottext">All
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; All
</span><a href="../../base/src/Data.Semigroup.Internal.html#All"><span class="hs-identifier hs-var">All</span></a></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; All) -&gt; (Bool -&gt; Bool) -&gt; Bool -&gt; All
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span class="hs-special">)</span><span>
</span><span id="line-330"></span><span>                        </span><span class="annot"><span class="annottext">(Maybe Bool -&gt; All) -&gt; Maybe Bool -&gt; All
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Flag Bool -&gt; Maybe Bool
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockInternal"><span class="hs-identifier hs-var hs-var">haddockInternal</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[ModuleName]
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-331"></span><span>      </span><span class="annot"><span class="annottext">argLinkSource :: Flag (FilePath, FilePath, FilePath)
</span><a href="Distribution.Simple.Haddock.html#argLinkSource"><span class="hs-identifier hs-var">argLinkSource</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockLinkedSource"><span class="hs-identifier hs-var hs-var">haddockLinkedSource</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-332"></span><span>                               </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">(FilePath, FilePath, FilePath)
-&gt; Flag (FilePath, FilePath, FilePath)
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src/%{MODULE/./-}.html&quot;</span></span><span>
</span><span id="line-333"></span><span>                                         </span><span class="hs-special">,</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src/%{MODULE/./-}.html#%{NAME}&quot;</span></span><span>
</span><span id="line-334"></span><span>                                         </span><span class="hs-special">,</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src/%{MODULE/./-}.html#line-%{LINE}&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-335"></span><span>                               </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Flag (FilePath, FilePath, FilePath)
forall a. Flag a
</span><a href="Distribution.Simple.Flag.html#NoFlag"><span class="hs-identifier hs-var">NoFlag</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-336"></span><span>      </span><span class="annot"><span class="annottext">argLinkedSource :: Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argLinkedSource"><span class="hs-identifier hs-var">argLinkedSource</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockLinkedSource"><span class="hs-identifier hs-var hs-var">haddockLinkedSource</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-337"></span><span>      </span><span class="annot"><span class="annottext">argQuickJump :: Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argQuickJump"><span class="hs-identifier hs-var">argQuickJump</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockQuickJump"><span class="hs-identifier hs-var hs-var">haddockQuickJump</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-338"></span><span>      </span><span class="annot"><span class="annottext">argCssFile :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argCssFile"><span class="hs-identifier hs-var">argCssFile</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockCss"><span class="hs-identifier hs-var hs-var">haddockCss</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-339"></span><span>      </span><span class="annot"><span class="annottext">argContents :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argContents"><span class="hs-identifier hs-var">argContents</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(PathTemplate -&gt; FilePath) -&gt; Flag PathTemplate -&gt; Flag FilePath
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PathTemplate -&gt; FilePath
</span><a href="Distribution.Simple.InstallDirs.html#fromPathTemplate"><span class="hs-identifier hs-var">fromPathTemplate</span></a></span><span> </span><span class="annot"><span class="annottext">(PathTemplate -&gt; FilePath)
-&gt; (PathTemplate -&gt; PathTemplate) -&gt; PathTemplate -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">PathTemplateEnv -&gt; PathTemplate -&gt; PathTemplate
</span><a href="Distribution.Simple.InstallDirs.html#substPathTemplate"><span class="hs-identifier hs-var">substPathTemplate</span></a></span><span> </span><span class="annot"><span class="annottext">PathTemplateEnv
</span><a href="#local-6989586621679731036"><span class="hs-identifier hs-var">env</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-340"></span><span>                    </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag PathTemplate
</span><a href="Distribution.Simple.Setup.html#haddockContents"><span class="hs-identifier hs-var hs-var">haddockContents</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-341"></span><span>      </span><span class="annot"><span class="annottext">argVerbose :: Any
</span><a href="Distribution.Simple.Haddock.html#argVerbose"><span class="hs-identifier hs-var">argVerbose</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Any -&gt; (Verbosity -&gt; Any) -&gt; Maybe Verbosity -&gt; Any
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="annot"><span class="annottext">Any
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Any
</span><a href="../../base/src/Data.Semigroup.Internal.html#Any"><span class="hs-identifier hs-var">Any</span></a></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Any) -&gt; (Verbosity -&gt; Bool) -&gt; Verbosity -&gt; Any
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#deafening"><span class="hs-identifier hs-var">deafening</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-342"></span><span>                   </span><span class="annot"><span class="annottext">(Maybe Verbosity -&gt; Any)
-&gt; (Flag Verbosity -&gt; Maybe Verbosity) -&gt; Flag Verbosity -&gt; Any
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag Verbosity -&gt; Maybe Verbosity
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Verbosity -&gt; Any) -&gt; Flag Verbosity -&gt; Any
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#haddockVerbosity"><span class="hs-identifier hs-var hs-var">haddockVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-343"></span><span>      </span><span class="annot"><span class="annottext">argOutput :: Flag [Output]
</span><a href="Distribution.Simple.Haddock.html#argOutput"><span class="hs-identifier hs-var">argOutput</span></a></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-344"></span><span>          </span><span class="annot"><span class="annottext">[Output] -&gt; Flag [Output]
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">([Output] -&gt; Flag [Output]) -&gt; [Output] -&gt; Flag [Output]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Html"><span class="hs-identifier hs-var">Html</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockHtml"><span class="hs-identifier hs-var hs-var">haddockHtml</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">[Output] -&gt; [Output] -&gt; [Output]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span>
</span><span id="line-345"></span><span>                      </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Hoogle"><span class="hs-identifier hs-var">Hoogle</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockHoogle"><span class="hs-identifier hs-var hs-var">haddockHoogle</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-346"></span><span>                 </span><span class="hs-keyword">of</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Html"><span class="hs-identifier hs-var">Html</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-347"></span><span>                    </span><span id="local-6989586621679731025"><span class="annot"><span class="annottext">[Output]
</span><a href="#local-6989586621679731025"><span class="hs-identifier hs-var">os</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[Output]
</span><a href="#local-6989586621679731025"><span class="hs-identifier hs-var">os</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-348"></span><span>      </span><span class="annot"><span class="annottext">argOutputDir :: Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var">argOutputDir</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Directory -&gt; (FilePath -&gt; Directory) -&gt; Maybe FilePath -&gt; Directory
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="annot"><span class="annottext">Directory
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe FilePath -&gt; Directory)
-&gt; (Flag FilePath -&gt; Maybe FilePath) -&gt; Flag FilePath -&gt; Directory
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; Maybe FilePath
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; Directory) -&gt; Flag FilePath -&gt; Directory
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockDistPref"><span class="hs-identifier hs-var hs-var">haddockDistPref</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-349"></span><span>
</span><span id="line-350"></span><span>      </span><span class="annot"><span class="annottext">argGhcOptions :: GhcOptions
</span><a href="Distribution.Simple.Haddock.html#argGhcOptions"><span class="hs-identifier hs-var">argGhcOptions</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">GhcOptions
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">ghcOptExtra :: [FilePath]
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptExtra"><span class="hs-identifier hs-var">ghcOptExtra</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679731023"><span class="hs-identifier hs-var">ghcArgs</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-351"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-352"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-353"></span><span>      </span><span id="local-6989586621679731023"><span class="annot"><span class="annottext">ghcArgs :: [FilePath]
</span><a href="#local-6989586621679731023"><span class="hs-identifier hs-var hs-var">ghcArgs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; Maybe [FilePath] -&gt; [FilePath]
forall a. a -&gt; Maybe a -&gt; a
</span><a href="../../base/src/Data.Maybe.html#fromMaybe"><span class="hs-identifier hs-var">fromMaybe</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">(Maybe [FilePath] -&gt; [FilePath])
-&gt; (HaddockFlags -&gt; Maybe [FilePath]) -&gt; HaddockFlags -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; [(FilePath, [FilePath])] -&gt; Maybe [FilePath]
forall a b. Eq a =&gt; a -&gt; [(a, b)] -&gt; Maybe b
</span><a href="../../base/src/GHC.List.html#lookup"><span class="hs-identifier hs-var">lookup</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;ghc&quot;</span></span><span> </span><span class="annot"><span class="annottext">([(FilePath, [FilePath])] -&gt; Maybe [FilePath])
-&gt; (HaddockFlags -&gt; [(FilePath, [FilePath])])
-&gt; HaddockFlags
-&gt; Maybe [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; [(FilePath, [FilePath])]
</span><a href="Distribution.Simple.Setup.html#haddockProgramArgs"><span class="hs-identifier hs-var hs-var">haddockProgramArgs</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockFlags -&gt; [FilePath]) -&gt; HaddockFlags -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679731035"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-354"></span><span>
</span><span id="line-355"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#fromPackageDescription"><span class="hs-identifier hs-type">fromPackageDescription</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HaddockTarget"><span class="hs-identifier hs-type">HaddockTarget</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.PackageDescription.html#PackageDescription"><span class="hs-identifier hs-type">PackageDescription</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-356"></span><span id="fromPackageDescription"><span class="annot"><span class="annottext">fromPackageDescription :: HaddockTarget -&gt; PackageDescription -&gt; HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromPackageDescription"><span class="hs-identifier hs-var hs-var">fromPackageDescription</span></a></span></span><span> </span><span id="local-6989586621679731017"><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679731017"><span class="hs-identifier hs-var">haddockTarget</span></a></span></span><span> </span><span id="local-6989586621679731016"><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span>
</span><span id="line-357"></span><span>    </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">argInterfaceFile :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argInterfaceFile"><span class="hs-identifier hs-var">argInterfaceFile</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Flag FilePath) -&gt; FilePath -&gt; Flag FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription -&gt; FilePath
</span><a href="Distribution.Simple.BuildPaths.html#haddockName"><span class="hs-identifier hs-var">haddockName</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-358"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">argPackageName :: Flag PackageIdentifier
</span><a href="Distribution.Simple.Haddock.html#argPackageName"><span class="hs-identifier hs-var">argPackageName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; Flag PackageIdentifier
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">(PackageIdentifier -&gt; Flag PackageIdentifier)
-&gt; PackageIdentifier -&gt; Flag PackageIdentifier
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">(PackageDescription -&gt; PackageIdentifier)
-&gt; PackageDescription -&gt; PackageIdentifier
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-359"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">argOutputDir :: Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var">argOutputDir</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Directory) -&gt; FilePath -&gt; Directory
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-360"></span><span>        </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;doc&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;html&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget -&gt; PackageDescription -&gt; FilePath
</span><a href="Distribution.Simple.BuildPaths.html#haddockDirName"><span class="hs-identifier hs-var">haddockDirName</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679731017"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-361"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">argPrologue :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argPrologue"><span class="hs-identifier hs-var">argPrologue</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Flag FilePath) -&gt; FilePath -&gt; Flag FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">ShortText -&gt; FilePath
</span><a href="Distribution.Utils.ShortText.html#fromShortText"><span class="hs-identifier hs-var">ShortText.fromShortText</span></a></span><span> </span><span class="annot"><span class="annottext">(ShortText -&gt; FilePath) -&gt; ShortText -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-362"></span><span>        </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">ShortText -&gt; Bool
</span><a href="Distribution.Utils.ShortText.html#null"><span class="hs-identifier hs-var">ShortText.null</span></a></span><span> </span><span class="annot"><span class="annottext">ShortText
</span><a href="#local-6989586621679731011"><span class="hs-identifier hs-var">desc</span></a></span><span>
</span><span id="line-363"></span><span>        </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">PackageDescription -&gt; ShortText
</span><a href="Distribution.Types.PackageDescription.html#synopsis"><span class="hs-identifier hs-var hs-var">synopsis</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-364"></span><span>        </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">ShortText
</span><a href="#local-6989586621679731011"><span class="hs-identifier hs-var">desc</span></a></span><span>
</span><span id="line-365"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">argTitle :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argTitle"><span class="hs-identifier hs-var">argTitle</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Flag FilePath) -&gt; FilePath -&gt; Flag FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731009"><span class="hs-identifier hs-var">showPkg</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679731008"><span class="hs-identifier hs-var">subtitle</span></a></span><span>
</span><span id="line-366"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-367"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-368"></span><span>    </span><span id="local-6989586621679731011"><span class="annot"><span class="annottext">desc :: ShortText
</span><a href="#local-6989586621679731011"><span class="hs-identifier hs-var hs-var">desc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageDescription -&gt; ShortText
</span><a href="Distribution.Types.PackageDescription.html#description"><span class="hs-identifier hs-var hs-var">description</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-369"></span><span>    </span><span id="local-6989586621679731009"><span class="annot"><span class="annottext">showPkg :: FilePath
</span><a href="#local-6989586621679731009"><span class="hs-identifier hs-var hs-var">showPkg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-370"></span><span>    </span><span id="local-6989586621679731008"><span class="annot"><span class="annottext">subtitle :: FilePath
</span><a href="#local-6989586621679731008"><span class="hs-identifier hs-var hs-var">subtitle</span></a></span></span><span>
</span><span id="line-371"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">ShortText -&gt; Bool
</span><a href="Distribution.Utils.ShortText.html#null"><span class="hs-identifier hs-var">ShortText.null</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; ShortText
</span><a href="Distribution.Types.PackageDescription.html#synopsis"><span class="hs-identifier hs-var hs-var">synopsis</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;&quot;</span></span><span>
</span><span id="line-372"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>                           </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;: &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">ShortText -&gt; FilePath
</span><a href="Distribution.Utils.ShortText.html#fromShortText"><span class="hs-identifier hs-var">ShortText.fromShortText</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; ShortText
</span><a href="Distribution.Types.PackageDescription.html#synopsis"><span class="hs-identifier hs-var hs-var">synopsis</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679731016"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-373"></span><span>
</span><span id="line-374"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#componentGhcOptions"><span class="hs-identifier hs-type">componentGhcOptions</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-375"></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.BuildInfo.html#BuildInfo"><span class="hs-identifier hs-type">BuildInfo</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-376"></span><span>                 </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.GHC.html#GhcOptions"><span class="hs-identifier hs-type">GhcOptions</span></a></span><span>
</span><span id="line-377"></span><span id="componentGhcOptions"><span class="annot"><span class="annottext">componentGhcOptions :: Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
</span><a href="Distribution.Simple.Haddock.html#componentGhcOptions"><span class="hs-identifier hs-var hs-var">componentGhcOptions</span></a></span></span><span> </span><span id="local-6989586621679731002"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731002"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679731001"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731001"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679731000"><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679731000"><span class="hs-identifier hs-var">bi</span></a></span></span><span> </span><span id="local-6989586621679730999"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730999"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730998"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730998"><span class="hs-identifier hs-var">odir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-378"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730995"><span class="annot"><span class="annottext">f :: Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
</span><a href="#local-6989586621679730995"><span class="hs-identifier hs-var hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Compiler -&gt; CompilerFlavor
</span><a href="Distribution.Simple.Compiler.html#compilerFlavor"><span class="hs-identifier hs-var">compilerFlavor</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Compiler
</span><a href="Distribution.Types.LocalBuildInfo.html#compiler"><span class="hs-identifier hs-var hs-var">compiler</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731001"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-379"></span><span>            </span><span class="annot"><span class="annottext">CompilerFlavor
</span><a href="Distribution.Compiler.html#GHC"><span class="hs-identifier hs-var">GHC</span></a></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
</span><a href="Distribution.Simple.GHC.html#componentGhcOptions"><span class="hs-identifier hs-var">GHC.componentGhcOptions</span></a></span><span>
</span><span id="line-380"></span><span>            </span><span class="annot"><span class="annottext">CompilerFlavor
</span><a href="Distribution.Compiler.html#GHCJS"><span class="hs-identifier hs-var">GHCJS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
</span><a href="Distribution.Simple.GHCJS.html#componentGhcOptions"><span class="hs-identifier hs-var">GHCJS.componentGhcOptions</span></a></span><span>
</span><span id="line-381"></span><span>            </span><span class="annot"><span class="annottext">CompilerFlavor
</span><span class="hs-identifier">_</span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
-&gt; Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
forall a. HasCallStack =&gt; FilePath -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath
 -&gt; Verbosity
 -&gt; LocalBuildInfo
 -&gt; BuildInfo
 -&gt; ComponentLocalBuildInfo
 -&gt; FilePath
 -&gt; GhcOptions)
-&gt; FilePath
-&gt; Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-382"></span><span>                       </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Distribution.Simple.Haddock.componentGhcOptions:&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span>
</span><span id="line-383"></span><span>                       </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;haddock only supports GHC and GHCJS&quot;</span></span><span>
</span><span id="line-384"></span><span>  </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
</span><a href="#local-6989586621679730995"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679731002"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679731001"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679731000"><span class="hs-identifier hs-var">bi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730999"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730998"><span class="hs-identifier hs-var">odir</span></a></span><span>
</span><span id="line-385"></span><span>
</span><span id="line-386"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#mkHaddockArgs"><span class="hs-identifier hs-type">mkHaddockArgs</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-387"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-388"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-389"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-390"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplate"><span class="hs-identifier hs-type">PathTemplate</span></a></span><span> </span><span class="hs-comment">-- ^ template for HTML location</span><span>
</span><span id="line-391"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span>
</span><span id="line-392"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-393"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.BuildInfo.html#BuildInfo"><span class="hs-identifier hs-type">BuildInfo</span></a></span><span>
</span><span id="line-394"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-395"></span><span id="mkHaddockArgs"><span class="annot"><span class="annottext">mkHaddockArgs :: Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; [FilePath]
-&gt; BuildInfo
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#mkHaddockArgs"><span class="hs-identifier hs-var hs-var">mkHaddockArgs</span></a></span></span><span> </span><span id="local-6989586621679730988"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730988"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730987"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730987"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span id="local-6989586621679730986"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730986"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730985"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730985"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730984"><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730984"><span class="hs-identifier hs-var">htmlTemplate</span></a></span></span><span> </span><span id="local-6989586621679730983"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730983"><span class="hs-identifier hs-var">haddockVersion</span></a></span></span><span> </span><span id="local-6989586621679730982"><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730982"><span class="hs-identifier hs-var">inFiles</span></a></span></span><span> </span><span id="local-6989586621679730981"><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679730981"><span class="hs-identifier hs-var">bi</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-396"></span><span>    </span><span id="local-6989586621679730980"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730980"><span class="hs-identifier hs-var">ifaceArgs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#getInterfaces"><span class="hs-identifier hs-var">getInterfaces</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730988"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730986"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730985"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730984"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-397"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730977"><span class="annot"><span class="annottext">vanillaOpts :: GhcOptions
</span><a href="#local-6989586621679730977"><span class="hs-identifier hs-var hs-var">vanillaOpts</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; BuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; FilePath
-&gt; GhcOptions
</span><a href="Distribution.Simple.Haddock.html#componentGhcOptions"><span class="hs-identifier hs-var">componentGhcOptions</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="Distribution.Verbosity.html#normal"><span class="hs-identifier hs-var">normal</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730986"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679730981"><span class="hs-identifier hs-var">bi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730985"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; FilePath
</span><a href="Distribution.Types.LocalBuildInfo.html#buildDir"><span class="hs-identifier hs-var hs-var">buildDir</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730986"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-398"></span><span>                          </span><span class="hs-comment">-- Noooooooooo!!!!!111</span><span>
</span><span id="line-399"></span><span>                          </span><span class="hs-comment">-- haddock stomps on our precious .hi</span><span>
</span><span id="line-400"></span><span>                          </span><span class="hs-comment">-- and .o files. Workaround by telling</span><span>
</span><span id="line-401"></span><span>                          </span><span class="hs-comment">-- haddock to write them elsewhere.</span><span>
</span><span id="line-402"></span><span>                          </span><span class="annot"><span class="annottext">ghcOptObjDir :: Flag FilePath
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptObjDir"><span class="hs-identifier hs-var">ghcOptObjDir</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730987"><span class="hs-identifier hs-var">tmp</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-403"></span><span>                          </span><span class="annot"><span class="annottext">ghcOptHiDir :: Flag FilePath
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptHiDir"><span class="hs-identifier hs-var">ghcOptHiDir</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730987"><span class="hs-identifier hs-var">tmp</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-404"></span><span>                          </span><span class="annot"><span class="annottext">ghcOptStubDir :: Flag FilePath
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptStubDir"><span class="hs-identifier hs-var">ghcOptStubDir</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730987"><span class="hs-identifier hs-var">tmp</span></a></span><span>
</span><span id="line-405"></span><span>                      </span><span class="hs-special">}</span><span> </span><span class="annot"><span class="annottext">GhcOptions -&gt; GhcOptions -&gt; GhcOptions
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-operator hs-var">`mappend`</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; BuildInfo -&gt; GhcOptions
</span><a href="Distribution.Simple.Haddock.html#getGhcCppOpts"><span class="hs-identifier hs-var">getGhcCppOpts</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730983"><span class="hs-identifier hs-var">haddockVersion</span></a></span><span> </span><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679730981"><span class="hs-identifier hs-var">bi</span></a></span><span>
</span><span id="line-406"></span><span>        </span><span id="local-6989586621679730970"><span class="annot"><span class="annottext">sharedOpts :: GhcOptions
</span><a href="#local-6989586621679730970"><span class="hs-identifier hs-var hs-var">sharedOpts</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">GhcOptions
</span><a href="#local-6989586621679730977"><span class="hs-identifier hs-var">vanillaOpts</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-407"></span><span>                         </span><span class="annot"><span class="annottext">ghcOptDynLinkMode :: Flag GhcDynLinkMode
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptDynLinkMode"><span class="hs-identifier hs-var">ghcOptDynLinkMode</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">GhcDynLinkMode -&gt; Flag GhcDynLinkMode
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">GhcDynLinkMode
</span><a href="Distribution.Simple.Program.GHC.html#GhcDynamicOnly"><span class="hs-identifier hs-var">GhcDynamicOnly</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-408"></span><span>                         </span><span class="annot"><span class="annottext">ghcOptFPic :: Flag Bool
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptFPic"><span class="hs-identifier hs-var">ghcOptFPic</span></a></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Flag Bool
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span class="hs-special">,</span><span>
</span><span id="line-409"></span><span>                         </span><span class="annot"><span class="annottext">ghcOptHiSuffix :: Flag FilePath
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptHiSuffix"><span class="hs-identifier hs-var">ghcOptHiSuffix</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;dyn_hi&quot;</span></span><span class="hs-special">,</span><span>
</span><span id="line-410"></span><span>                         </span><span class="annot"><span class="annottext">ghcOptObjSuffix :: Flag FilePath
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptObjSuffix"><span class="hs-identifier hs-var">ghcOptObjSuffix</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#toFlag"><span class="hs-identifier hs-var">toFlag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;dyn_o&quot;</span></span><span class="hs-special">,</span><span>
</span><span id="line-411"></span><span>                         </span><span class="annot"><span class="annottext">ghcOptExtra :: [FilePath]
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptExtra"><span class="hs-identifier hs-var">ghcOptExtra</span></a></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">CompilerFlavor -&gt; BuildInfo -&gt; [FilePath]
</span><a href="Distribution.Types.BuildInfo.html#hcSharedOptions"><span class="hs-identifier hs-var">hcSharedOptions</span></a></span><span> </span><span class="annot"><span class="annottext">CompilerFlavor
</span><a href="Distribution.Compiler.html#GHC"><span class="hs-identifier hs-var">GHC</span></a></span><span> </span><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679730981"><span class="hs-identifier hs-var">bi</span></a></span><span>
</span><span id="line-412"></span><span>
</span><span id="line-413"></span><span>                     </span><span class="hs-special">}</span><span>
</span><span id="line-414"></span><span>    </span><span id="local-6989586621679730963"><span class="annot"><span class="annottext">GhcOptions
</span><a href="#local-6989586621679730963"><span class="hs-identifier hs-var">opts</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Bool
</span><a href="Distribution.Types.LocalBuildInfo.html#withVanillaLib"><span class="hs-identifier hs-var hs-var">withVanillaLib</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730986"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-415"></span><span>            </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">GhcOptions -&gt; IO GhcOptions
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">GhcOptions
</span><a href="#local-6989586621679730977"><span class="hs-identifier hs-var">vanillaOpts</span></a></span><span>
</span><span id="line-416"></span><span>            </span><span class="hs-keyword">else</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Bool
</span><a href="Distribution.Types.LocalBuildInfo.html#withSharedLib"><span class="hs-identifier hs-var hs-var">withSharedLib</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730986"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-417"></span><span>            </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">GhcOptions -&gt; IO GhcOptions
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">GhcOptions
</span><a href="#local-6989586621679730970"><span class="hs-identifier hs-var">sharedOpts</span></a></span><span>
</span><span id="line-418"></span><span>            </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO GhcOptions
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730988"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO GhcOptions) -&gt; FilePath -&gt; IO GhcOptions
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Must have vanilla or shared libraries &quot;</span></span><span>
</span><span id="line-419"></span><span>                       </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;enabled in order to run haddock&quot;</span></span><span>
</span><span id="line-420"></span><span>
</span><span id="line-421"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs -&gt; IO HaddockArgs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730980"><span class="hs-identifier hs-var">ifaceArgs</span></a></span><span>
</span><span id="line-422"></span><span>      </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">argGhcOptions :: GhcOptions
</span><a href="Distribution.Simple.Haddock.html#argGhcOptions"><span class="hs-identifier hs-var">argGhcOptions</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">GhcOptions
</span><a href="#local-6989586621679730963"><span class="hs-identifier hs-var">opts</span></a></span><span>
</span><span id="line-423"></span><span>      </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">argTargets :: [FilePath]
</span><a href="Distribution.Simple.Haddock.html#argTargets"><span class="hs-identifier hs-var">argTargets</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730982"><span class="hs-identifier hs-var">inFiles</span></a></span><span>
</span><span id="line-424"></span><span>      </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">argReexports :: [OpenModule]
</span><a href="Distribution.Simple.Haddock.html#argReexports"><span class="hs-identifier hs-var">argReexports</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo -&gt; [OpenModule]
</span><a href="Distribution.Simple.Haddock.html#getReexports"><span class="hs-identifier hs-var">getReexports</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730985"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-425"></span><span>      </span><span class="hs-special">}</span><span>
</span><span id="line-426"></span><span>
</span><span id="line-427"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#fromLibrary"><span class="hs-identifier hs-type">fromLibrary</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-428"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-429"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-430"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-431"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplate"><span class="hs-identifier hs-type">PathTemplate</span></a></span><span> </span><span class="hs-comment">-- ^ template for HTML location</span><span>
</span><span id="line-432"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span>
</span><span id="line-433"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Library.html#Library"><span class="hs-identifier hs-type">Library</span></a></span><span>
</span><span id="line-434"></span><span>            </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-435"></span><span id="fromLibrary"><span class="annot"><span class="annottext">fromLibrary :: Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; Library
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromLibrary"><span class="hs-identifier hs-var hs-var">fromLibrary</span></a></span></span><span> </span><span id="local-6989586621679730959"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730959"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730958"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730958"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span id="local-6989586621679730957"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730957"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730956"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730956"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730955"><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730955"><span class="hs-identifier hs-var">htmlTemplate</span></a></span></span><span> </span><span id="local-6989586621679730954"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730954"><span class="hs-identifier hs-var">haddockVersion</span></a></span></span><span> </span><span id="local-6989586621679730953"><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679730953"><span class="hs-identifier hs-var">lib</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-436"></span><span>    </span><span id="local-6989586621679730952"><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730952"><span class="hs-identifier hs-var">inFiles</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">((ModuleName, FilePath) -&gt; FilePath)
-&gt; [(ModuleName, FilePath)] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(ModuleName, FilePath) -&gt; FilePath
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">([(ModuleName, FilePath)] -&gt; [FilePath])
-&gt; IO [(ModuleName, FilePath)] -&gt; IO [FilePath]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-operator hs-var">`fmap`</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; Library
-&gt; ComponentLocalBuildInfo
-&gt; IO [(ModuleName, FilePath)]
</span><a href="Distribution.Simple.BuildPaths.html#getLibSourceFiles"><span class="hs-identifier hs-var">getLibSourceFiles</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730959"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730957"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679730953"><span class="hs-identifier hs-var">lib</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730956"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-437"></span><span>    </span><span id="local-6989586621679730950"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730950"><span class="hs-identifier hs-var">args</span></a></span></span><span>    </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; [FilePath]
-&gt; BuildInfo
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#mkHaddockArgs"><span class="hs-identifier hs-var">mkHaddockArgs</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730959"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730958"><span class="hs-identifier hs-var">tmp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730957"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730956"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730955"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730954"><span class="hs-identifier hs-var">haddockVersion</span></a></span><span>
</span><span id="line-438"></span><span>                 </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730952"><span class="hs-identifier hs-var">inFiles</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Library -&gt; BuildInfo
</span><a href="Distribution.Types.Library.html#libBuildInfo"><span class="hs-identifier hs-var hs-var">libBuildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679730953"><span class="hs-identifier hs-var">lib</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-439"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs -&gt; IO HaddockArgs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730950"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-440"></span><span>      </span><span class="annot"><span class="annottext">argHideModules :: (All, [ModuleName])
</span><a href="Distribution.Simple.Haddock.html#argHideModules"><span class="hs-identifier hs-var">argHideModules</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">All
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BuildInfo -&gt; [ModuleName]
</span><a href="Distribution.Types.BuildInfo.html#otherModules"><span class="hs-identifier hs-var hs-var">otherModules</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Library -&gt; BuildInfo
</span><a href="Distribution.Types.Library.html#libBuildInfo"><span class="hs-identifier hs-var hs-var">libBuildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679730953"><span class="hs-identifier hs-var">lib</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-441"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-442"></span><span>
</span><span id="line-443"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#fromExecutable"><span class="hs-identifier hs-type">fromExecutable</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-444"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-445"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-446"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-447"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplate"><span class="hs-identifier hs-type">PathTemplate</span></a></span><span> </span><span class="hs-comment">-- ^ template for HTML location</span><span>
</span><span id="line-448"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span>
</span><span id="line-449"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Executable.html#Executable"><span class="hs-identifier hs-type">Executable</span></a></span><span>
</span><span id="line-450"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-451"></span><span id="fromExecutable"><span class="annot"><span class="annottext">fromExecutable :: Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; Executable
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromExecutable"><span class="hs-identifier hs-var hs-var">fromExecutable</span></a></span></span><span> </span><span id="local-6989586621679730947"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730947"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730946"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730946"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span id="local-6989586621679730945"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730945"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730944"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730944"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730943"><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730943"><span class="hs-identifier hs-var">htmlTemplate</span></a></span></span><span> </span><span id="local-6989586621679730942"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730942"><span class="hs-identifier hs-var">haddockVersion</span></a></span></span><span> </span><span id="local-6989586621679730941"><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730941"><span class="hs-identifier hs-var">exe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-452"></span><span>    </span><span id="local-6989586621679730940"><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730940"><span class="hs-identifier hs-var">inFiles</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">((ModuleName, FilePath) -&gt; FilePath)
-&gt; [(ModuleName, FilePath)] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(ModuleName, FilePath) -&gt; FilePath
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">([(ModuleName, FilePath)] -&gt; [FilePath])
-&gt; IO [(ModuleName, FilePath)] -&gt; IO [FilePath]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-operator hs-var">`fmap`</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; Executable
-&gt; ComponentLocalBuildInfo
-&gt; IO [(ModuleName, FilePath)]
</span><a href="Distribution.Simple.BuildPaths.html#getExeSourceFiles"><span class="hs-identifier hs-var">getExeSourceFiles</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730947"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730945"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730941"><span class="hs-identifier hs-var">exe</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730944"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-453"></span><span>    </span><span id="local-6989586621679730938"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730938"><span class="hs-identifier hs-var">args</span></a></span></span><span>    </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; [FilePath]
-&gt; BuildInfo
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#mkHaddockArgs"><span class="hs-identifier hs-var">mkHaddockArgs</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730947"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730946"><span class="hs-identifier hs-var">tmp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730945"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730944"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730943"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-454"></span><span>                 </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730942"><span class="hs-identifier hs-var">haddockVersion</span></a></span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730940"><span class="hs-identifier hs-var">inFiles</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Executable -&gt; BuildInfo
</span><a href="Distribution.Types.Executable.html#buildInfo"><span class="hs-identifier hs-var hs-var">buildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730941"><span class="hs-identifier hs-var">exe</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-455"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs -&gt; IO HaddockArgs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730938"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-456"></span><span>      </span><span class="annot"><span class="annottext">argOutputDir :: Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var">argOutputDir</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span><span>  </span><span class="annot"><span class="annottext">(FilePath -&gt; Directory) -&gt; FilePath -&gt; Directory
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName -&gt; FilePath
</span><a href="Distribution.Types.UnqualComponentName.html#unUnqualComponentName"><span class="hs-identifier hs-var">unUnqualComponentName</span></a></span><span> </span><span class="annot"><span class="annottext">(UnqualComponentName -&gt; FilePath)
-&gt; UnqualComponentName -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Executable -&gt; UnqualComponentName
</span><a href="Distribution.Types.Executable.html#exeName"><span class="hs-identifier hs-var hs-var">exeName</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730941"><span class="hs-identifier hs-var">exe</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-457"></span><span>      </span><span class="annot"><span class="annottext">argTitle :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argTitle"><span class="hs-identifier hs-var">argTitle</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Flag FilePath) -&gt; FilePath -&gt; Flag FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName -&gt; FilePath
</span><a href="Distribution.Types.UnqualComponentName.html#unUnqualComponentName"><span class="hs-identifier hs-var">unUnqualComponentName</span></a></span><span> </span><span class="annot"><span class="annottext">(UnqualComponentName -&gt; FilePath)
-&gt; UnqualComponentName -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Executable -&gt; UnqualComponentName
</span><a href="Distribution.Types.Executable.html#exeName"><span class="hs-identifier hs-var hs-var">exeName</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730941"><span class="hs-identifier hs-var">exe</span></a></span><span>
</span><span id="line-458"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-459"></span><span>
</span><span id="line-460"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#fromForeignLib"><span class="hs-identifier hs-type">fromForeignLib</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-461"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>
</span><span id="line-462"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-463"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-464"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplate"><span class="hs-identifier hs-type">PathTemplate</span></a></span><span> </span><span class="hs-comment">-- ^ template for HTML location</span><span>
</span><span id="line-465"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span>
</span><span id="line-466"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ForeignLib.html#ForeignLib"><span class="hs-identifier hs-type">ForeignLib</span></a></span><span>
</span><span id="line-467"></span><span>               </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-468"></span><span id="fromForeignLib"><span class="annot"><span class="annottext">fromForeignLib :: Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; ForeignLib
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#fromForeignLib"><span class="hs-identifier hs-var hs-var">fromForeignLib</span></a></span></span><span> </span><span id="local-6989586621679730934"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730934"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730933"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730933"><span class="hs-identifier hs-var">tmp</span></a></span></span><span> </span><span id="local-6989586621679730932"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730932"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730931"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730931"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730930"><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730930"><span class="hs-identifier hs-var">htmlTemplate</span></a></span></span><span> </span><span id="local-6989586621679730929"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730929"><span class="hs-identifier hs-var">haddockVersion</span></a></span></span><span> </span><span id="local-6989586621679730928"><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730928"><span class="hs-identifier hs-var">flib</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-469"></span><span>    </span><span id="local-6989586621679730927"><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730927"><span class="hs-identifier hs-var">inFiles</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">((ModuleName, FilePath) -&gt; FilePath)
-&gt; [(ModuleName, FilePath)] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(ModuleName, FilePath) -&gt; FilePath
forall a b. (a, b) -&gt; b
</span><a href="../../base/src/Data.Tuple.html#snd"><span class="hs-identifier hs-var">snd</span></a></span><span> </span><span class="annot"><span class="annottext">([(ModuleName, FilePath)] -&gt; [FilePath])
-&gt; IO [(ModuleName, FilePath)] -&gt; IO [FilePath]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-operator hs-var">`fmap`</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; ForeignLib
-&gt; ComponentLocalBuildInfo
-&gt; IO [(ModuleName, FilePath)]
</span><a href="Distribution.Simple.BuildPaths.html#getFLibSourceFiles"><span class="hs-identifier hs-var">getFLibSourceFiles</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730934"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730932"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730928"><span class="hs-identifier hs-var">flib</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730931"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-470"></span><span>    </span><span id="local-6989586621679730925"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730925"><span class="hs-identifier hs-var">args</span></a></span></span><span>    </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; FilePath
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; Version
-&gt; [FilePath]
-&gt; BuildInfo
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#mkHaddockArgs"><span class="hs-identifier hs-var">mkHaddockArgs</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730934"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730933"><span class="hs-identifier hs-var">tmp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730932"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730931"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730930"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-471"></span><span>                 </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730929"><span class="hs-identifier hs-var">haddockVersion</span></a></span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730927"><span class="hs-identifier hs-var">inFiles</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ForeignLib -&gt; BuildInfo
</span><a href="Distribution.Types.ForeignLib.html#foreignLibBuildInfo"><span class="hs-identifier hs-var hs-var">foreignLibBuildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730928"><span class="hs-identifier hs-var">flib</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-472"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs -&gt; IO HaddockArgs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730925"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-473"></span><span>      </span><span class="annot"><span class="annottext">argOutputDir :: Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var">argOutputDir</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span><span>  </span><span class="annot"><span class="annottext">(FilePath -&gt; Directory) -&gt; FilePath -&gt; Directory
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName -&gt; FilePath
</span><a href="Distribution.Types.UnqualComponentName.html#unUnqualComponentName"><span class="hs-identifier hs-var">unUnqualComponentName</span></a></span><span> </span><span class="annot"><span class="annottext">(UnqualComponentName -&gt; FilePath)
-&gt; UnqualComponentName -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib -&gt; UnqualComponentName
</span><a href="Distribution.Types.ForeignLib.html#foreignLibName"><span class="hs-identifier hs-var hs-var">foreignLibName</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730928"><span class="hs-identifier hs-var">flib</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-474"></span><span>      </span><span class="annot"><span class="annottext">argTitle :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argTitle"><span class="hs-identifier hs-var">argTitle</span></a></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Flag FilePath) -&gt; FilePath -&gt; Flag FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName -&gt; FilePath
</span><a href="Distribution.Types.UnqualComponentName.html#unUnqualComponentName"><span class="hs-identifier hs-var">unUnqualComponentName</span></a></span><span> </span><span class="annot"><span class="annottext">(UnqualComponentName -&gt; FilePath)
-&gt; UnqualComponentName -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib -&gt; UnqualComponentName
</span><a href="Distribution.Types.ForeignLib.html#foreignLibName"><span class="hs-identifier hs-var hs-var">foreignLibName</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730928"><span class="hs-identifier hs-var">flib</span></a></span><span>
</span><span id="line-475"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-476"></span><span>
</span><span id="line-477"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#compToExe"><span class="hs-identifier hs-type">compToExe</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.Component.html#Component"><span class="hs-identifier hs-type">Component</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.Executable.html#Executable"><span class="hs-identifier hs-type">Executable</span></a></span><span>
</span><span id="line-478"></span><span id="compToExe"><span class="annot"><span class="annottext">compToExe :: Component -&gt; Maybe Executable
</span><a href="Distribution.Simple.Haddock.html#compToExe"><span class="hs-identifier hs-var hs-var">compToExe</span></a></span></span><span> </span><span id="local-6989586621679730922"><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730922"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-479"></span><span>  </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730922"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-480"></span><span>    </span><span class="annot"><a href="Distribution.Types.Component.html#CTest"><span class="hs-identifier hs-type">CTest</span></a></span><span> </span><span id="local-6989586621679730921"><span class="annot"><span class="annottext">test :: TestSuite
</span><a href="#local-6989586621679730921"><span class="hs-identifier hs-var">test</span></a></span></span><span class="hs-glyph">@</span><span class="annot"><a href="Distribution.Types.TestSuite.html#TestSuite"><span class="hs-identifier hs-type">TestSuite</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">testInterface :: TestSuite -&gt; TestSuiteInterface
</span><a href="Distribution.Types.TestSuite.html#testInterface"><span class="hs-identifier hs-var">testInterface</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="Distribution.Types.TestSuiteInterface.html#TestSuiteExeV10"><span class="hs-identifier hs-type">TestSuiteExeV10</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679730917"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730917"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-481"></span><span>      </span><span class="annot"><span class="annottext">Executable -&gt; Maybe Executable
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Executable :: UnqualComponentName
-&gt; FilePath -&gt; ExecutableScope -&gt; BuildInfo -&gt; Executable
</span><a href="Distribution.Types.Executable.html#Executable"><span class="hs-identifier hs-type">Executable</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-482"></span><span>        </span><span class="annot"><span class="annottext">exeName :: UnqualComponentName
</span><a href="Distribution.Types.Executable.html#exeName"><span class="hs-identifier hs-var">exeName</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TestSuite -&gt; UnqualComponentName
</span><a href="Distribution.Types.TestSuite.html#testName"><span class="hs-identifier hs-var hs-var">testName</span></a></span><span> </span><span class="annot"><span class="annottext">TestSuite
</span><a href="#local-6989586621679730921"><span class="hs-identifier hs-var">test</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-483"></span><span>        </span><span class="annot"><span class="annottext">modulePath :: FilePath
</span><a href="Distribution.Types.Executable.html#modulePath"><span class="hs-identifier hs-var">modulePath</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730917"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-484"></span><span>        </span><span class="annot"><span class="annottext">exeScope :: ExecutableScope
</span><a href="Distribution.Types.Executable.html#exeScope"><span class="hs-identifier hs-var">exeScope</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ExecutableScope
</span><a href="Distribution.Types.ExecutableScope.html#ExecutablePublic"><span class="hs-identifier hs-var">ExecutablePublic</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-485"></span><span>        </span><span class="annot"><span class="annottext">buildInfo :: BuildInfo
</span><a href="Distribution.Types.Executable.html#buildInfo"><span class="hs-identifier hs-var">buildInfo</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TestSuite -&gt; BuildInfo
</span><a href="Distribution.Types.TestSuite.html#testBuildInfo"><span class="hs-identifier hs-var hs-var">testBuildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">TestSuite
</span><a href="#local-6989586621679730921"><span class="hs-identifier hs-var">test</span></a></span><span>
</span><span id="line-486"></span><span>      </span><span class="hs-special">}</span><span>
</span><span id="line-487"></span><span>    </span><span class="annot"><a href="Distribution.Types.Component.html#CBench"><span class="hs-identifier hs-type">CBench</span></a></span><span> </span><span id="local-6989586621679730910"><span class="annot"><span class="annottext">bench :: Benchmark
</span><a href="#local-6989586621679730910"><span class="hs-identifier hs-var">bench</span></a></span></span><span class="hs-glyph">@</span><span class="annot"><a href="Distribution.Types.Benchmark.html#Benchmark"><span class="hs-identifier hs-type">Benchmark</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">benchmarkInterface :: Benchmark -&gt; BenchmarkInterface
</span><a href="Distribution.Types.Benchmark.html#benchmarkInterface"><span class="hs-identifier hs-var">benchmarkInterface</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="Distribution.Types.BenchmarkInterface.html#BenchmarkExeV10"><span class="hs-identifier hs-type">BenchmarkExeV10</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679730906"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730906"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-488"></span><span>      </span><span class="annot"><span class="annottext">Executable -&gt; Maybe Executable
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Executable :: UnqualComponentName
-&gt; FilePath -&gt; ExecutableScope -&gt; BuildInfo -&gt; Executable
</span><a href="Distribution.Types.Executable.html#Executable"><span class="hs-identifier hs-type">Executable</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-489"></span><span>        </span><span class="annot"><span class="annottext">exeName :: UnqualComponentName
</span><a href="Distribution.Types.Executable.html#exeName"><span class="hs-identifier hs-var">exeName</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Benchmark -&gt; UnqualComponentName
</span><a href="Distribution.Types.Benchmark.html#benchmarkName"><span class="hs-identifier hs-var hs-var">benchmarkName</span></a></span><span> </span><span class="annot"><span class="annottext">Benchmark
</span><a href="#local-6989586621679730910"><span class="hs-identifier hs-var">bench</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-490"></span><span>        </span><span class="annot"><span class="annottext">modulePath :: FilePath
</span><a href="Distribution.Types.Executable.html#modulePath"><span class="hs-identifier hs-var">modulePath</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730906"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-491"></span><span>        </span><span class="annot"><span class="annottext">exeScope :: ExecutableScope
</span><a href="Distribution.Types.Executable.html#exeScope"><span class="hs-identifier hs-var">exeScope</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ExecutableScope
</span><a href="Distribution.Types.ExecutableScope.html#ExecutablePublic"><span class="hs-identifier hs-var">ExecutablePublic</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-492"></span><span>        </span><span class="annot"><span class="annottext">buildInfo :: BuildInfo
</span><a href="Distribution.Types.Executable.html#buildInfo"><span class="hs-identifier hs-var">buildInfo</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Benchmark -&gt; BuildInfo
</span><a href="Distribution.Types.Benchmark.html#benchmarkBuildInfo"><span class="hs-identifier hs-var hs-var">benchmarkBuildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">Benchmark
</span><a href="#local-6989586621679730910"><span class="hs-identifier hs-var">bench</span></a></span><span>
</span><span id="line-493"></span><span>      </span><span class="hs-special">}</span><span>
</span><span id="line-494"></span><span>    </span><span class="annot"><a href="Distribution.Types.Component.html#CExe"><span class="hs-identifier hs-type">CExe</span></a></span><span> </span><span id="local-6989586621679730903"><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730903"><span class="hs-identifier hs-var">exe</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Executable -&gt; Maybe Executable
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730903"><span class="hs-identifier hs-var">exe</span></a></span><span>
</span><span id="line-495"></span><span>    </span><span class="annot"><span class="annottext">Component
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe Executable
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-496"></span><span>
</span><span id="line-497"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#getInterfaces"><span class="hs-identifier hs-type">getInterfaces</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-498"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-499"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-500"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplate"><span class="hs-identifier hs-type">PathTemplate</span></a></span><span> </span><span class="hs-comment">-- ^ template for HTML location</span><span>
</span><span id="line-501"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-502"></span><span id="getInterfaces"><span class="annot"><span class="annottext">getInterfaces :: Verbosity
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#getInterfaces"><span class="hs-identifier hs-var hs-var">getInterfaces</span></a></span></span><span> </span><span id="local-6989586621679730902"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730902"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730901"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730901"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730900"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730900"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730899"><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730899"><span class="hs-identifier hs-var">htmlTemplate</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-503"></span><span>    </span><span class="hs-special">(</span><span id="local-6989586621679730898"><span class="annot"><span class="annottext">[(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730898"><span class="hs-identifier hs-var">packageFlags</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730897"><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730897"><span class="hs-identifier hs-var">warnings</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; IO
     ([(FilePath, Maybe FilePath, Maybe FilePath)], Maybe FilePath)
</span><a href="Distribution.Simple.Haddock.html#haddockPackageFlags"><span class="hs-identifier hs-var">haddockPackageFlags</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730902"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730901"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730900"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730899"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-504"></span><span>    </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; Maybe FilePath -&gt; IO ()
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Foldable t, Applicative f) =&gt;
(a -&gt; f b) -&gt; t a -&gt; f ()
</span><a href="../../base/src/Data.Foldable.html#traverse_"><span class="hs-identifier hs-var">traverse_</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; Verbosity
</span><a href="Distribution.Verbosity.html#verboseUnmarkOutput"><span class="hs-identifier hs-var">verboseUnmarkOutput</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730902"><span class="hs-identifier hs-var">verbosity</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730897"><span class="hs-identifier hs-var">warnings</span></a></span><span>
</span><span id="line-505"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs -&gt; IO HaddockArgs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; IO HaddockArgs) -&gt; HaddockArgs -&gt; IO HaddockArgs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-506"></span><span>                 </span><span class="annot"><span class="annottext">argInterfaces :: [(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="Distribution.Simple.Haddock.html#argInterfaces"><span class="hs-identifier hs-var">argInterfaces</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730898"><span class="hs-identifier hs-var">packageFlags</span></a></span><span>
</span><span id="line-507"></span><span>               </span><span class="hs-special">}</span><span>
</span><span id="line-508"></span><span>
</span><span id="line-509"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#getReexports"><span class="hs-identifier hs-type">getReexports</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Backpack.html#OpenModule"><span class="hs-identifier hs-type">OpenModule</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-510"></span><span id="getReexports"><span class="annot"><span class="annottext">getReexports :: ComponentLocalBuildInfo -&gt; [OpenModule]
</span><a href="Distribution.Simple.Haddock.html#getReexports"><span class="hs-identifier hs-var hs-var">getReexports</span></a></span></span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#LibComponentLocalBuildInfo"><span class="hs-identifier hs-type">LibComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">componentExposedModules :: ComponentLocalBuildInfo -&gt; [ExposedModule]
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#componentExposedModules"><span class="hs-identifier hs-var">componentExposedModules</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621679730891"><span class="annot"><span class="annottext">[ExposedModule]
</span><a href="#local-6989586621679730891"><span class="hs-identifier hs-var">mods</span></a></span></span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-511"></span><span>    </span><span class="annot"><span class="annottext">(ExposedModule -&gt; Maybe OpenModule)
-&gt; [ExposedModule] -&gt; [OpenModule]
forall a b. (a -&gt; Maybe b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/Data.Maybe.html#mapMaybe"><span class="hs-identifier hs-var">mapMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">ExposedModule -&gt; Maybe OpenModule
</span><a href="Distribution.Types.ExposedModule.html#exposedReexport"><span class="hs-identifier hs-var hs-var">exposedReexport</span></a></span><span> </span><span class="annot"><span class="annottext">[ExposedModule]
</span><a href="#local-6989586621679730891"><span class="hs-identifier hs-var">mods</span></a></span><span>
</span><span id="line-512"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#getReexports"><span class="hs-identifier hs-var">getReexports</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-513"></span><span>
</span><span id="line-514"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#getGhcCppOpts"><span class="hs-identifier hs-type">getGhcCppOpts</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span>
</span><span id="line-515"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.BuildInfo.html#BuildInfo"><span class="hs-identifier hs-type">BuildInfo</span></a></span><span>
</span><span id="line-516"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.GHC.html#GhcOptions"><span class="hs-identifier hs-type">GhcOptions</span></a></span><span>
</span><span id="line-517"></span><span id="getGhcCppOpts"><span class="annot"><span class="annottext">getGhcCppOpts :: Version -&gt; BuildInfo -&gt; GhcOptions
</span><a href="Distribution.Simple.Haddock.html#getGhcCppOpts"><span class="hs-identifier hs-var hs-var">getGhcCppOpts</span></a></span></span><span> </span><span id="local-6989586621679730888"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730888"><span class="hs-identifier hs-var">haddockVersion</span></a></span></span><span> </span><span id="local-6989586621679730887"><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679730887"><span class="hs-identifier hs-var">bi</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-518"></span><span>    </span><span class="annot"><span class="annottext">GhcOptions
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-519"></span><span>        </span><span class="annot"><span class="annottext">ghcOptExtensions :: NubListR Extension
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptExtensions"><span class="hs-identifier hs-var">ghcOptExtensions</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Extension] -&gt; NubListR Extension
forall a. Ord a =&gt; [a] -&gt; NubListR a
</span><a href="Distribution.Utils.NubList.html#toNubListR"><span class="hs-identifier hs-var">toNubListR</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">KnownExtension -&gt; Extension
</span><a href="Language.Haskell.Extension.html#EnableExtension"><span class="hs-identifier hs-var">EnableExtension</span></a></span><span> </span><span class="annot"><span class="annottext">KnownExtension
</span><a href="Language.Haskell.Extension.html#CPP"><span class="hs-identifier hs-var">CPP</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730882"><span class="hs-identifier hs-var">needsCpp</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-520"></span><span>        </span><span class="annot"><span class="annottext">ghcOptCppOptions :: [FilePath]
</span><a href="Distribution.Simple.Program.GHC.html#ghcOptCppOptions"><span class="hs-identifier hs-var">ghcOptCppOptions</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730880"><span class="hs-identifier hs-var">defines</span></a></span><span>
</span><span id="line-521"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-522"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-523"></span><span>    </span><span id="local-6989586621679730882"><span class="annot"><span class="annottext">needsCpp :: Bool
</span><a href="#local-6989586621679730882"><span class="hs-identifier hs-var hs-var">needsCpp</span></a></span></span><span>             </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">KnownExtension -&gt; Extension
</span><a href="Language.Haskell.Extension.html#EnableExtension"><span class="hs-identifier hs-var">EnableExtension</span></a></span><span> </span><span class="annot"><span class="annottext">KnownExtension
</span><a href="Language.Haskell.Extension.html#CPP"><span class="hs-identifier hs-var">CPP</span></a></span><span> </span><span class="annot"><span class="annottext">Extension -&gt; [Extension] -&gt; Bool
forall (t :: * -&gt; *) a. (Foldable t, Eq a) =&gt; a -&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#elem"><span class="hs-operator hs-var">`elem`</span></a></span><span> </span><span class="annot"><span class="annottext">BuildInfo -&gt; [Extension]
</span><a href="Distribution.Types.BuildInfo.html#usedExtensions"><span class="hs-identifier hs-var">usedExtensions</span></a></span><span> </span><span class="annot"><span class="annottext">BuildInfo
</span><a href="#local-6989586621679730887"><span class="hs-identifier hs-var">bi</span></a></span><span>
</span><span id="line-524"></span><span>    </span><span id="local-6989586621679730880"><span class="annot"><span class="annottext">defines :: [FilePath]
</span><a href="#local-6989586621679730880"><span class="hs-identifier hs-var hs-var">defines</span></a></span></span><span>              </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730874"><span class="hs-identifier hs-var">haddockVersionMacro</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-525"></span><span>    </span><span id="local-6989586621679730874"><span class="annot"><span class="annottext">haddockVersionMacro :: FilePath
</span><a href="#local-6989586621679730874"><span class="hs-identifier hs-var hs-var">haddockVersionMacro</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-D__HADDOCK_VERSION__=&quot;</span></span><span>
</span><span id="line-526"></span><span>                           </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; FilePath
forall a. Show a =&gt; a -&gt; FilePath
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730863"><span class="hs-identifier hs-var">v1</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1000</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730860"><span class="hs-identifier hs-var">v2</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730859"><span class="hs-identifier hs-var">v3</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-527"></span><span>      </span><span class="hs-keyword">where</span><span>
</span><span id="line-528"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679730863"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730863"><span class="hs-identifier hs-var">v1</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730860"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730860"><span class="hs-identifier hs-var">v2</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730859"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730859"><span class="hs-identifier hs-var">v3</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Version -&gt; [Int]
</span><a href="Distribution.Types.Version.html#versionNumbers"><span class="hs-identifier hs-var">versionNumbers</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730888"><span class="hs-identifier hs-var">haddockVersion</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-529"></span><span>            </span><span class="hs-special">[</span><span class="hs-special">]</span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span>
</span><span id="line-530"></span><span>            </span><span class="hs-special">[</span><span id="local-6989586621679730851"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730851"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">]</span><span>       </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730851"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span>
</span><span id="line-531"></span><span>            </span><span class="hs-special">[</span><span id="local-6989586621679730850"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730850"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679730849"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730849"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">]</span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730850"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730849"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span>
</span><span id="line-532"></span><span>            </span><span class="hs-special">(</span><span id="local-6989586621679730848"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730848"><span class="hs-identifier hs-var">x</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679730847"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730847"><span class="hs-identifier hs-var">y</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679730846"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730846"><span class="hs-identifier hs-var">z</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">[Int]
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730848"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730847"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730846"><span class="hs-identifier hs-var">z</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-533"></span><span>
</span><span id="line-534"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#getGhcLibDir"><span class="hs-identifier hs-type">getGhcLibDir</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-535"></span><span>             </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-536"></span><span id="getGhcLibDir"><span class="annot"><span class="annottext">getGhcLibDir :: Verbosity -&gt; LocalBuildInfo -&gt; IO HaddockArgs
</span><a href="Distribution.Simple.Haddock.html#getGhcLibDir"><span class="hs-identifier hs-var hs-var">getGhcLibDir</span></a></span></span><span> </span><span id="local-6989586621679730845"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730845"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730844"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730844"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-537"></span><span>    </span><span id="local-6989586621679730843"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730843"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Compiler -&gt; CompilerFlavor
</span><a href="Distribution.Simple.Compiler.html#compilerFlavor"><span class="hs-identifier hs-var">compilerFlavor</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Compiler
</span><a href="Distribution.Types.LocalBuildInfo.html#compiler"><span class="hs-identifier hs-var hs-var">compiler</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730844"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-538"></span><span>            </span><span class="annot"><span class="annottext">CompilerFlavor
</span><a href="Distribution.Compiler.html#GHC"><span class="hs-identifier hs-var">GHC</span></a></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; LocalBuildInfo -&gt; IO FilePath
</span><a href="Distribution.Simple.GHC.html#getLibDir"><span class="hs-identifier hs-var">GHC.getLibDir</span></a></span><span>   </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730845"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730844"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-539"></span><span>            </span><span class="annot"><span class="annottext">CompilerFlavor
</span><a href="Distribution.Compiler.html#GHCJS"><span class="hs-identifier hs-var">GHCJS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; LocalBuildInfo -&gt; IO FilePath
</span><a href="Distribution.Simple.GHCJS.html#getLibDir"><span class="hs-identifier hs-var">GHCJS.getLibDir</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730845"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730844"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-540"></span><span>            </span><span class="annot"><span class="annottext">CompilerFlavor
</span><span class="hs-identifier">_</span></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; IO FilePath
forall a. HasCallStack =&gt; FilePath -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;haddock only supports GHC and GHCJS&quot;</span></span><span>
</span><span id="line-541"></span><span>    </span><span class="annot"><span class="annottext">HaddockArgs -&gt; IO HaddockArgs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; IO HaddockArgs) -&gt; HaddockArgs -&gt; IO HaddockArgs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">argGhcLibDir :: Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argGhcLibDir"><span class="hs-identifier hs-var">argGhcLibDir</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Flag FilePath
forall a. a -&gt; Flag a
</span><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-var">Flag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730843"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-542"></span><span>
</span><span id="line-543"></span><span class="hs-comment">-- ------------------------------------------------------------------------------</span><span>
</span><span id="line-544"></span><span class="hs-comment">-- | Call haddock with the specified arguments.</span><span>
</span><span id="line-545"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#runHaddock"><span class="hs-identifier hs-type">runHaddock</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-546"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Utils.html#TempFileOptions"><span class="hs-identifier hs-type">TempFileOptions</span></a></span><span>
</span><span id="line-547"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html#Compiler"><span class="hs-identifier hs-type">Compiler</span></a></span><span>
</span><span id="line-548"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.System.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span>
</span><span id="line-549"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.Types.html#ConfiguredProgram"><span class="hs-identifier hs-type">ConfiguredProgram</span></a></span><span>
</span><span id="line-550"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-551"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-552"></span><span id="runHaddock"><span class="annot"><span class="annottext">runHaddock :: Verbosity
-&gt; TempFileOptions
-&gt; Compiler
-&gt; Platform
-&gt; ConfiguredProgram
-&gt; HaddockArgs
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#runHaddock"><span class="hs-identifier hs-var hs-var">runHaddock</span></a></span></span><span> </span><span id="local-6989586621679730840"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730840"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730839"><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679730839"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span></span><span> </span><span id="local-6989586621679730838"><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679730838"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span id="local-6989586621679730837"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679730837"><span class="hs-identifier hs-var">platform</span></a></span></span><span> </span><span id="local-6989586621679730836"><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730836"><span class="hs-identifier hs-var">haddockProg</span></a></span></span><span> </span><span id="local-6989586621679730835"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730835"><span class="hs-identifier hs-var">args</span></a></span></span><span>
</span><span id="line-553"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; Bool
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#null"><span class="hs-identifier hs-var">null</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockArgs -&gt; [FilePath]
</span><a href="Distribution.Simple.Haddock.html#argTargets"><span class="hs-identifier hs-var hs-var">argTargets</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730835"><span class="hs-identifier hs-var">args</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730840"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-554"></span><span>       </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Haddocks are being requested, but there aren't any modules given &quot;</span></span><span>
</span><span id="line-555"></span><span>    </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;to create documentation for.&quot;</span></span><span>
</span><span id="line-556"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-557"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730831"><span class="annot"><span class="annottext">haddockVersion :: Version
</span><a href="#local-6989586621679730831"><span class="hs-identifier hs-var hs-var">haddockVersion</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Version -&gt; Maybe Version -&gt; Version
forall a. a -&gt; Maybe a -&gt; a
</span><a href="../../base/src/Data.Maybe.html#fromMaybe"><span class="hs-identifier hs-var">fromMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; Version
forall a. HasCallStack =&gt; FilePath -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;unable to determine haddock version&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-558"></span><span>                        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ConfiguredProgram -&gt; Maybe Version
</span><a href="Distribution.Simple.Program.Types.html#programVersion"><span class="hs-identifier hs-var hs-var">programVersion</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730836"><span class="hs-identifier hs-var">haddockProg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-559"></span><span>    </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; Version
-&gt; Compiler
-&gt; Platform
-&gt; HaddockArgs
-&gt; (([FilePath], FilePath) -&gt; IO ())
-&gt; IO ()
forall a.
Verbosity
-&gt; TempFileOptions
-&gt; Version
-&gt; Compiler
-&gt; Platform
-&gt; HaddockArgs
-&gt; (([FilePath], FilePath) -&gt; IO a)
-&gt; IO a
</span><a href="Distribution.Simple.Haddock.html#renderArgs"><span class="hs-identifier hs-var">renderArgs</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730840"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679730839"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730831"><span class="hs-identifier hs-var">haddockVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679730838"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679730837"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730835"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="annot"><span class="annottext">((([FilePath], FilePath) -&gt; IO ()) -&gt; IO ())
-&gt; (([FilePath], FilePath) -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-560"></span><span>      </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679730828"><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730828"><span class="hs-identifier hs-var">flags</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679730827"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730827"><span class="hs-identifier hs-var">result</span></a></span></span><span class="hs-special">)</span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-561"></span><span>
</span><span id="line-562"></span><span>        </span><span class="annot"><span class="annottext">Verbosity -&gt; ConfiguredProgram -&gt; [FilePath] -&gt; IO ()
</span><a href="Distribution.Simple.Program.html#runProgram"><span class="hs-identifier hs-var">runProgram</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730840"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730836"><span class="hs-identifier hs-var">haddockProg</span></a></span><span> </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730828"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-563"></span><span>
</span><span id="line-564"></span><span>        </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#notice"><span class="hs-identifier hs-var">notice</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730840"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Documentation created: &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730827"><span class="hs-identifier hs-var">result</span></a></span><span>
</span><span id="line-565"></span><span>
</span><span id="line-566"></span><span>
</span><span id="line-567"></span><span id="local-6989586621679731637"><span class="annot"><a href="Distribution.Simple.Haddock.html#renderArgs"><span class="hs-identifier hs-type">renderArgs</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-568"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Utils.html#TempFileOptions"><span class="hs-identifier hs-type">TempFileOptions</span></a></span><span>
</span><span id="line-569"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span>
</span><span id="line-570"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html#Compiler"><span class="hs-identifier hs-type">Compiler</span></a></span><span>
</span><span id="line-571"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.System.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span>
</span><span id="line-572"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span>
</span><span id="line-573"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679731637"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-574"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679731637"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-575"></span><span id="renderArgs"><span class="annot"><span class="annottext">renderArgs :: forall a.
Verbosity
-&gt; TempFileOptions
-&gt; Version
-&gt; Compiler
-&gt; Platform
-&gt; HaddockArgs
-&gt; (([FilePath], FilePath) -&gt; IO a)
-&gt; IO a
</span><a href="Distribution.Simple.Haddock.html#renderArgs"><span class="hs-identifier hs-var hs-var">renderArgs</span></a></span></span><span> </span><span id="local-6989586621679730817"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730817"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730816"><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679730816"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span></span><span> </span><span id="local-6989586621679730815"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730815"><span class="hs-identifier hs-var">version</span></a></span></span><span> </span><span id="local-6989586621679730814"><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679730814"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span id="local-6989586621679730813"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679730813"><span class="hs-identifier hs-var">platform</span></a></span></span><span> </span><span id="local-6989586621679730812"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730812"><span class="hs-identifier hs-var">args</span></a></span></span><span> </span><span id="local-6989586621679730811"><span class="annot"><span class="annottext">([FilePath], FilePath) -&gt; IO a
</span><a href="#local-6989586621679730811"><span class="hs-identifier hs-var">k</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-576"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730809"><span class="annot"><span class="annottext">haddockSupportsUTF8 :: Bool
</span><a href="#local-6989586621679730809"><span class="hs-identifier hs-var hs-var">haddockSupportsUTF8</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730815"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">14</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span class="hs-special">]</span><span>
</span><span id="line-577"></span><span>      </span><span id="local-6989586621679730807"><span class="annot"><span class="annottext">haddockSupportsResponseFiles :: Bool
</span><a href="#local-6989586621679730807"><span class="hs-identifier hs-var hs-var">haddockSupportsResponseFiles</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730815"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span>  </span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">16</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">]</span><span>
</span><span id="line-578"></span><span>  </span><span class="annot"><span class="annottext">Verbosity -&gt; Bool -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#createDirectoryIfMissingVerbose"><span class="hs-identifier hs-var">createDirectoryIfMissingVerbose</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730817"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730804"><span class="hs-identifier hs-var">outputDir</span></a></span><span>
</span><span id="line-579"></span><span>  </span><span class="annot"><span class="annottext">TempFileOptions
-&gt; FilePath -&gt; FilePath -&gt; (FilePath -&gt; Handle -&gt; IO a) -&gt; IO a
forall a.
TempFileOptions
-&gt; FilePath -&gt; FilePath -&gt; (FilePath -&gt; Handle -&gt; IO a) -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#withTempFileEx"><span class="hs-identifier hs-var">withTempFileEx</span></a></span><span> </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679730816"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730804"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;haddock-prologue.txt&quot;</span></span><span> </span><span class="annot"><span class="annottext">((FilePath -&gt; Handle -&gt; IO a) -&gt; IO a)
-&gt; (FilePath -&gt; Handle -&gt; IO a) -&gt; IO a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-580"></span><span>    </span><span class="hs-glyph">\</span><span id="local-6989586621679730802"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730802"><span class="hs-identifier hs-var">prologueFileName</span></a></span></span><span> </span><span id="local-6989586621679730801"><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679730801"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-581"></span><span>          </span><span class="hs-keyword">do</span><span>
</span><span id="line-582"></span><span>             </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730809"><span class="hs-identifier hs-var">haddockSupportsUTF8</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Handle -&gt; TextEncoding -&gt; IO ()
</span><a href="../../base/src/GHC.IO.Handle.html#hSetEncoding"><span class="hs-identifier hs-var">hSetEncoding</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679730801"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">TextEncoding
</span><a href="../../base/src/GHC.IO.Encoding.html#utf8"><span class="hs-identifier hs-var">utf8</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-583"></span><span>             </span><span class="annot"><span class="annottext">Handle -&gt; FilePath -&gt; IO ()
</span><a href="../../base/src/GHC.IO.Handle.Text.html#hPutStrLn"><span class="hs-identifier hs-var">hPutStrLn</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679730801"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; FilePath
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; FilePath) -&gt; Flag FilePath -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argPrologue"><span class="hs-identifier hs-var hs-var">argPrologue</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730812"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-584"></span><span>             </span><span class="annot"><span class="annottext">Handle -&gt; IO ()
</span><a href="../../base/src/GHC.IO.Handle.html#hClose"><span class="hs-identifier hs-var">hClose</span></a></span><span> </span><span class="annot"><span class="annottext">Handle
</span><a href="#local-6989586621679730801"><span class="hs-identifier hs-var">h</span></a></span><span>
</span><span id="line-585"></span><span>             </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730800"><span class="annot"><span class="annottext">pflag :: FilePath
</span><a href="#local-6989586621679730800"><span class="hs-identifier hs-var hs-var">pflag</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--prologue=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730802"><span class="hs-identifier hs-var">prologueFileName</span></a></span><span>
</span><span id="line-586"></span><span>                 </span><span id="local-6989586621679730799"><span class="annot"><span class="annottext">renderedArgs :: [FilePath]
</span><a href="#local-6989586621679730799"><span class="hs-identifier hs-var hs-var">renderedArgs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730800"><span class="hs-identifier hs-var">pflag</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; [FilePath]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Compiler -&gt; Platform -&gt; HaddockArgs -&gt; [FilePath]
</span><a href="Distribution.Simple.Haddock.html#renderPureArgs"><span class="hs-identifier hs-var">renderPureArgs</span></a></span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730815"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679730814"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679730813"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730812"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-587"></span><span>             </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730807"><span class="hs-identifier hs-var">haddockSupportsResponseFiles</span></a></span><span>
</span><span id="line-588"></span><span>               </span><span class="hs-keyword">then</span><span>
</span><span id="line-589"></span><span>                 </span><span class="annot"><span class="annottext">Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; Maybe TextEncoding
-&gt; [FilePath]
-&gt; (FilePath -&gt; IO a)
-&gt; IO a
forall a.
Verbosity
-&gt; TempFileOptions
-&gt; FilePath
-&gt; FilePath
-&gt; Maybe TextEncoding
-&gt; [FilePath]
-&gt; (FilePath -&gt; IO a)
-&gt; IO a
</span><a href="Distribution.Simple.Program.ResponseFile.html#withResponseFile"><span class="hs-identifier hs-var">withResponseFile</span></a></span><span>
</span><span id="line-590"></span><span>                   </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730817"><span class="hs-identifier hs-var">verbosity</span></a></span><span>
</span><span id="line-591"></span><span>                   </span><span class="annot"><span class="annottext">TempFileOptions
</span><a href="#local-6989586621679730816"><span class="hs-identifier hs-var">tmpFileOpts</span></a></span><span>
</span><span id="line-592"></span><span>                   </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730804"><span class="hs-identifier hs-var">outputDir</span></a></span><span>
</span><span id="line-593"></span><span>                   </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;haddock-response.txt&quot;</span></span><span>
</span><span id="line-594"></span><span>                   </span><span class="hs-special">(</span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730809"><span class="hs-identifier hs-var">haddockSupportsUTF8</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">TextEncoding -&gt; Maybe TextEncoding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TextEncoding
</span><a href="../../base/src/GHC.IO.Encoding.html#utf8"><span class="hs-identifier hs-var">utf8</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Maybe TextEncoding
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-595"></span><span>                   </span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730799"><span class="hs-identifier hs-var">renderedArgs</span></a></span><span>
</span><span id="line-596"></span><span>                   </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679730796"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730796"><span class="hs-identifier hs-var">responseFileName</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">([FilePath], FilePath) -&gt; IO a
</span><a href="#local-6989586621679730811"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;@&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730796"><span class="hs-identifier hs-var">responseFileName</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730795"><span class="hs-identifier hs-var">result</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-597"></span><span>               </span><span class="hs-keyword">else</span><span>
</span><span id="line-598"></span><span>                 </span><span class="annot"><span class="annottext">([FilePath], FilePath) -&gt; IO a
</span><a href="#local-6989586621679730811"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[FilePath]
</span><a href="#local-6989586621679730799"><span class="hs-identifier hs-var">renderedArgs</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730795"><span class="hs-identifier hs-var">result</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-599"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-600"></span><span>      </span><span id="local-6989586621679730804"><span class="annot"><span class="annottext">outputDir :: FilePath
</span><a href="#local-6989586621679730804"><span class="hs-identifier hs-var hs-var">outputDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir"><span class="hs-identifier hs-var">unDir</span></a></span><span> </span><span class="annot"><span class="annottext">(Directory -&gt; FilePath) -&gt; Directory -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var hs-var">argOutputDir</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730812"><span class="hs-identifier hs-var">args</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-601"></span><span>      </span><span id="local-6989586621679730795"><span class="annot"><span class="annottext">result :: FilePath
</span><a href="#local-6989586621679730795"><span class="hs-identifier hs-var hs-var">result</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; FilePath
forall a. [a] -&gt; [[a]] -&gt; [a]
</span><a href="../../base/src/Data.OldList.html#intercalate"><span class="hs-identifier hs-var">intercalate</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;, &quot;</span></span><span>
</span><span id="line-602"></span><span>             </span><span class="annot"><span class="annottext">([FilePath] -&gt; FilePath)
-&gt; ([Output] -&gt; [FilePath]) -&gt; [Output] -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(Output -&gt; FilePath) -&gt; [Output] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679730793"><span class="annot"><span class="annottext">Output
</span><a href="#local-6989586621679730793"><span class="hs-identifier hs-var">o</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730804"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span>
</span><span id="line-603"></span><span>                            </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="#local-6989586621679730793"><span class="hs-identifier hs-var">o</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-604"></span><span>                              </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Html"><span class="hs-identifier hs-var">Html</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;index.html&quot;</span></span><span>
</span><span id="line-605"></span><span>                              </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Hoogle"><span class="hs-identifier hs-var">Hoogle</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730792"><span class="hs-identifier hs-var">pkgstr</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C.%3E"><span class="hs-operator hs-var">&lt;.&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;txt&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-606"></span><span>             </span><span class="annot"><span class="annottext">([Output] -&gt; FilePath) -&gt; [Output] -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; Flag [Output]) -&gt; [Output]
forall {a}. (HaddockArgs -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679730791"><span class="hs-identifier hs-var">arg</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag [Output]
</span><a href="Distribution.Simple.Haddock.html#argOutput"><span class="hs-identifier hs-var hs-var">argOutput</span></a></span><span>
</span><span id="line-607"></span><span>            </span><span class="hs-keyword">where</span><span>
</span><span id="line-608"></span><span>              </span><span id="local-6989586621679730792"><span class="annot"><span class="annottext">pkgstr :: FilePath
</span><a href="#local-6989586621679730792"><span class="hs-identifier hs-var hs-var">pkgstr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageName -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">(PackageName -&gt; FilePath) -&gt; PackageName -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; PackageName
forall pkg. Package pkg =&gt; pkg -&gt; PackageName
</span><a href="Distribution.Package.html#packageName"><span class="hs-identifier hs-var">packageName</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730786"><span class="hs-identifier hs-var">pkgid</span></a></span><span>
</span><span id="line-609"></span><span>              </span><span id="local-6989586621679730786"><span class="annot"><span class="annottext">pkgid :: PackageIdentifier
</span><a href="#local-6989586621679730786"><span class="hs-identifier hs-var hs-var">pkgid</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; Flag PackageIdentifier) -&gt; PackageIdentifier
forall {a}. (HaddockArgs -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679730791"><span class="hs-identifier hs-var">arg</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag PackageIdentifier
</span><a href="Distribution.Simple.Haddock.html#argPackageName"><span class="hs-identifier hs-var hs-var">argPackageName</span></a></span><span>
</span><span id="line-610"></span><span>      </span><span id="local-6989586621679730791"><span class="annot"><span class="annottext">arg :: (HaddockArgs -&gt; Flag a) -&gt; a
</span><a href="#local-6989586621679730791"><span class="hs-identifier hs-var hs-var">arg</span></a></span></span><span> </span><span id="local-6989586621679730783"><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag a
</span><a href="#local-6989586621679730783"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Flag a -&gt; a
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag a -&gt; a) -&gt; Flag a -&gt; a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag a
</span><a href="#local-6989586621679730783"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730812"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-611"></span><span>
</span><span id="line-612"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#renderPureArgs"><span class="hs-identifier hs-type">renderPureArgs</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html#Compiler"><span class="hs-identifier hs-type">Compiler</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.System.html#Platform"><span class="hs-identifier hs-type">Platform</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-613"></span><span id="renderPureArgs"><span class="annot"><span class="annottext">renderPureArgs :: Version -&gt; Compiler -&gt; Platform -&gt; HaddockArgs -&gt; [FilePath]
</span><a href="Distribution.Simple.Haddock.html#renderPureArgs"><span class="hs-identifier hs-var hs-var">renderPureArgs</span></a></span></span><span> </span><span id="local-6989586621679730782"><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730782"><span class="hs-identifier hs-var">version</span></a></span></span><span> </span><span id="local-6989586621679730781"><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679730781"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span id="local-6989586621679730780"><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679730780"><span class="hs-identifier hs-var">platform</span></a></span></span><span> </span><span id="local-6989586621679730779"><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[[FilePath]] -&gt; [FilePath]
forall (t :: * -&gt; *) a. Foldable t =&gt; t [a] -&gt; [a]
</span><a href="../../base/src/Data.Foldable.html#concat"><span class="hs-identifier hs-var">concat</span></a></span><span>
</span><span id="line-614"></span><span>    </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; [FilePath]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679730777"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730777"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--dump-interface=&quot;</span></span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir"><span class="hs-identifier hs-var">unDir</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockArgs -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var hs-var">argOutputDir</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730777"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-615"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; FilePath
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; FilePath)
-&gt; (HaddockArgs -&gt; Flag FilePath) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argInterfaceFile"><span class="hs-identifier hs-var hs-var">argInterfaceFile</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-616"></span><span>
</span><span id="line-617"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">16</span></span><span>
</span><span id="line-618"></span><span>        </span><span class="hs-keyword">then</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679730775"><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730775"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--package-name=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">PackageName -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageIdentifier -&gt; PackageName
</span><a href="Distribution.Types.PackageId.html#pkgName"><span class="hs-identifier hs-var hs-var">pkgName</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730775"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-619"></span><span>                      </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--package-version=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageIdentifier -&gt; Version
</span><a href="Distribution.Types.PackageId.html#pkgVersion"><span class="hs-identifier hs-var hs-var">pkgVersion</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730775"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-620"></span><span>                      </span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-621"></span><span>             </span><span class="annot"><span class="annottext">(PackageIdentifier -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; PackageIdentifier) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag PackageIdentifier -&gt; PackageIdentifier
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag PackageIdentifier -&gt; PackageIdentifier)
-&gt; (HaddockArgs -&gt; Flag PackageIdentifier)
-&gt; HaddockArgs
-&gt; PackageIdentifier
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag PackageIdentifier
</span><a href="Distribution.Simple.Haddock.html#argPackageName"><span class="hs-identifier hs-var hs-var">argPackageName</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-622"></span><span>        </span><span class="hs-keyword">else</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-623"></span><span>
</span><span id="line-624"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--since-qual=external&quot;</span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">20</span></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-625"></span><span>
</span><span id="line-626"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--quickjump&quot;</span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">19</span></span><span>
</span><span id="line-627"></span><span>                      </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool)
-&gt; (HaddockArgs -&gt; Flag Bool) -&gt; HaddockArgs -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argQuickJump"><span class="hs-identifier hs-var hs-var">argQuickJump</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; Bool) -&gt; HaddockArgs -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-628"></span><span>
</span><span id="line-629"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--hyperlinked-source&quot;</span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">17</span></span><span>
</span><span id="line-630"></span><span>                               </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool)
-&gt; (HaddockArgs -&gt; Flag Bool) -&gt; HaddockArgs -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argLinkedSource"><span class="hs-identifier hs-var hs-var">argLinkedSource</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; Bool) -&gt; HaddockArgs -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-631"></span><span>
</span><span id="line-632"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Semigroup.Internal.html#All"><span class="hs-identifier hs-type">All</span></a></span><span> </span><span id="local-6989586621679730772"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730772"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679730771"><span class="annot"><span class="annottext">[ModuleName]
</span><a href="#local-6989586621679730771"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; [FilePath] -&gt; Bool -&gt; [FilePath]
forall {p}. p -&gt; p -&gt; Bool -&gt; p
</span><a href="#local-6989586621679730770"><span class="hs-identifier hs-var">bool</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(ModuleName -&gt; FilePath) -&gt; [ModuleName] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--hide=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; (ModuleName -&gt; FilePath) -&gt; ModuleName -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[ModuleName]
</span><a href="#local-6989586621679730771"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730772"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-633"></span><span>                     </span><span class="annot"><span class="annottext">((All, [ModuleName]) -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; (All, [ModuleName]))
-&gt; HaddockArgs
-&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; (All, [ModuleName])
</span><a href="Distribution.Simple.Haddock.html#argHideModules"><span class="hs-identifier hs-var hs-var">argHideModules</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-634"></span><span>
</span><span id="line-635"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; [FilePath] -&gt; Bool -&gt; [FilePath]
forall {p}. p -&gt; p -&gt; Bool -&gt; p
</span><a href="#local-6989586621679730770"><span class="hs-identifier hs-var">bool</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--ignore-all-exports&quot;</span></span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; Bool) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Any -&gt; Bool
</span><a href="../../base/src/Data.Semigroup.Internal.html#getAny"><span class="hs-identifier hs-var hs-var">getAny</span></a></span><span> </span><span class="annot"><span class="annottext">(Any -&gt; Bool) -&gt; (HaddockArgs -&gt; Any) -&gt; HaddockArgs -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Any
</span><a href="Distribution.Simple.Haddock.html#argIgnoreExports"><span class="hs-identifier hs-var hs-var">argIgnoreExports</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-636"></span><span>
</span><span id="line-637"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[FilePath]
-&gt; ((FilePath, FilePath, FilePath) -&gt; [FilePath])
-&gt; Maybe (FilePath, FilePath, FilePath)
-&gt; [FilePath]
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679730768"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730768"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679730767"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730767"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679730766"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730766"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-638"></span><span>                 </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--source-module=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730768"><span class="hs-identifier hs-var">m</span></a></span><span>
</span><span id="line-639"></span><span>                 </span><span class="hs-special">,</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--source-entity=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730767"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-640"></span><span>                 </span><span class="annot"><span class="annottext">[FilePath] -&gt; [FilePath] -&gt; [FilePath]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">14</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--source-entity-line=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730766"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-641"></span><span>                    </span><span class="hs-keyword">else</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-642"></span><span>               </span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Maybe (FilePath, FilePath, FilePath) -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; Maybe (FilePath, FilePath, FilePath))
-&gt; HaddockArgs
-&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag (FilePath, FilePath, FilePath)
-&gt; Maybe (FilePath, FilePath, FilePath)
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag (FilePath, FilePath, FilePath)
 -&gt; Maybe (FilePath, FilePath, FilePath))
-&gt; (HaddockArgs -&gt; Flag (FilePath, FilePath, FilePath))
-&gt; HaddockArgs
-&gt; Maybe (FilePath, FilePath, FilePath)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag (FilePath, FilePath, FilePath)
</span><a href="Distribution.Simple.Haddock.html#argLinkSource"><span class="hs-identifier hs-var hs-var">argLinkSource</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-643"></span><span>
</span><span id="line-644"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[FilePath]
-&gt; (FilePath -&gt; [FilePath]) -&gt; Maybe FilePath -&gt; [FilePath]
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; [FilePath]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; [FilePath]) -&gt; ShowS -&gt; FilePath -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--css=&quot;</span></span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Maybe FilePath -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; Maybe FilePath) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; Maybe FilePath
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; Maybe FilePath)
-&gt; (HaddockArgs -&gt; Flag FilePath) -&gt; HaddockArgs -&gt; Maybe FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argCssFile"><span class="hs-identifier hs-var hs-var">argCssFile</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-645"></span><span>
</span><span id="line-646"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[FilePath]
-&gt; (FilePath -&gt; [FilePath]) -&gt; Maybe FilePath -&gt; [FilePath]
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; [FilePath]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; [FilePath]) -&gt; ShowS -&gt; FilePath -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--use-contents=&quot;</span></span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Maybe FilePath -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; Maybe FilePath) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; Maybe FilePath
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; Maybe FilePath)
-&gt; (HaddockArgs -&gt; Flag FilePath) -&gt; HaddockArgs -&gt; Maybe FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argContents"><span class="hs-identifier hs-var hs-var">argContents</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-647"></span><span>
</span><span id="line-648"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; [FilePath] -&gt; Bool -&gt; [FilePath]
forall {p}. p -&gt; p -&gt; Bool -&gt; p
</span><a href="#local-6989586621679730770"><span class="hs-identifier hs-var">bool</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730765"><span class="hs-identifier hs-var">verbosityFlag</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; Bool) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Any -&gt; Bool
</span><a href="../../base/src/Data.Semigroup.Internal.html#getAny"><span class="hs-identifier hs-var hs-var">getAny</span></a></span><span> </span><span class="annot"><span class="annottext">(Any -&gt; Bool) -&gt; (HaddockArgs -&gt; Any) -&gt; HaddockArgs -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Any
</span><a href="Distribution.Simple.Haddock.html#argVerbose"><span class="hs-identifier hs-var hs-var">argVerbose</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-649"></span><span>
</span><span id="line-650"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Output -&gt; FilePath) -&gt; [Output] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679730764"><span class="annot"><span class="annottext">Output
</span><a href="#local-6989586621679730764"><span class="hs-identifier hs-var">o</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="#local-6989586621679730764"><span class="hs-identifier hs-var">o</span></a></span><span> </span><span class="hs-keyword">of</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Hoogle"><span class="hs-identifier hs-var">Hoogle</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--hoogle&quot;</span></span><span class="hs-special">;</span><span> </span><span class="annot"><span class="annottext">Output
</span><a href="Distribution.Simple.Haddock.html#Html"><span class="hs-identifier hs-var">Html</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--html&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-651"></span><span>      </span><span class="annot"><span class="annottext">([Output] -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; [Output]) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag [Output] -&gt; [Output]
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag [Output] -&gt; [Output])
-&gt; (HaddockArgs -&gt; Flag [Output]) -&gt; HaddockArgs -&gt; [Output]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag [Output]
</span><a href="Distribution.Simple.Haddock.html#argOutput"><span class="hs-identifier hs-var hs-var">argOutput</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-652"></span><span>
</span><span id="line-653"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[(FilePath, Maybe FilePath, Maybe FilePath)] -&gt; [FilePath]
</span><a href="#local-6989586621679730763"><span class="hs-identifier hs-var">renderInterfaces</span></a></span><span> </span><span class="annot"><span class="annottext">([(FilePath, Maybe FilePath, Maybe FilePath)] -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; [(FilePath, Maybe FilePath, Maybe FilePath)])
-&gt; HaddockArgs
-&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; [(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="Distribution.Simple.Haddock.html#argInterfaces"><span class="hs-identifier hs-var hs-var">argInterfaces</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-654"></span><span>
</span><span id="line-655"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; [FilePath]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--odir=&quot;</span></span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Directory -&gt; FilePath
</span><a href="Distribution.Simple.Haddock.html#unDir"><span class="hs-identifier hs-var">unDir</span></a></span><span> </span><span class="annot"><span class="annottext">(Directory -&gt; FilePath)
-&gt; (HaddockArgs -&gt; Directory) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#argOutputDir"><span class="hs-identifier hs-var hs-var">argOutputDir</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-656"></span><span>
</span><span id="line-657"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; [FilePath]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; [FilePath])
-&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; [FilePath]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--title=&quot;</span></span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-658"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; Bool -&gt; ShowS
forall {p}. p -&gt; p -&gt; Bool -&gt; p
</span><a href="#local-6989586621679730770"><span class="hs-identifier hs-var">bool</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot; (internal documentation)&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-659"></span><span>         </span><span class="annot"><span class="annottext">ShowS
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Any -&gt; Bool
</span><a href="../../base/src/Data.Semigroup.Internal.html#getAny"><span class="hs-identifier hs-var hs-var">getAny</span></a></span><span> </span><span class="annot"><span class="annottext">(Any -&gt; Bool) -&gt; Any -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Any
</span><a href="Distribution.Simple.Haddock.html#argIgnoreExports"><span class="hs-identifier hs-var hs-var">argIgnoreExports</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-660"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; (HaddockArgs -&gt; FilePath) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; FilePath
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag FilePath -&gt; FilePath)
-&gt; (HaddockArgs -&gt; Flag FilePath) -&gt; HaddockArgs -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argTitle"><span class="hs-identifier hs-var hs-var">argTitle</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-661"></span><span>
</span><span id="line-662"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--optghc=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730761"><span class="hs-identifier hs-var">opt</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730760"><span class="annot"><span class="annottext">opts :: GhcOptions
</span><a href="#local-6989586621679730760"><span class="hs-identifier hs-var hs-var">opts</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; GhcOptions
</span><a href="Distribution.Simple.Haddock.html#argGhcOptions"><span class="hs-identifier hs-var hs-var">argGhcOptions</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-663"></span><span>                           </span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730761"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730761"><span class="hs-identifier hs-var">opt</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Compiler -&gt; Platform -&gt; GhcOptions -&gt; [FilePath]
</span><a href="Distribution.Simple.Program.GHC.html#renderGhcOptions"><span class="hs-identifier hs-var">renderGhcOptions</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679730781"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">Platform
</span><a href="#local-6989586621679730780"><span class="hs-identifier hs-var">platform</span></a></span><span> </span><span class="annot"><span class="annottext">GhcOptions
</span><a href="#local-6989586621679730760"><span class="hs-identifier hs-var">opts</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-664"></span><span>
</span><span id="line-665"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[FilePath]
-&gt; (FilePath -&gt; [FilePath]) -&gt; Maybe FilePath -&gt; [FilePath]
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679730758"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730758"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-B&quot;</span></span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730758"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Maybe FilePath -&gt; [FilePath]) -&gt; Maybe FilePath -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-666"></span><span>      </span><span class="annot"><span class="annottext">Flag FilePath -&gt; Maybe FilePath
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag FilePath
</span><a href="Distribution.Simple.Haddock.html#argGhcLibDir"><span class="hs-identifier hs-var hs-var">argGhcLibDir</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- error if Nothing?</span><span>
</span><span id="line-667"></span><span>
</span><span id="line-668"></span><span>      </span><span class="hs-comment">-- https://github.com/haskell/haddock/pull/547</span><span>
</span><span id="line-669"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--reexport=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">OpenModule -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">OpenModule
</span><a href="#local-6989586621679730757"><span class="hs-identifier hs-var">r</span></a></span><span>
</span><span id="line-670"></span><span>      </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679730757"><span class="annot"><span class="annottext">OpenModule
</span><a href="#local-6989586621679730757"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; [OpenModule]
</span><a href="Distribution.Simple.Haddock.html#argReexports"><span class="hs-identifier hs-var hs-var">argReexports</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-671"></span><span>      </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">19</span></span><span>
</span><span id="line-672"></span><span>      </span><span class="hs-special">]</span><span>
</span><span id="line-673"></span><span>
</span><span id="line-674"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; [FilePath]
</span><a href="Distribution.Simple.Haddock.html#argTargets"><span class="hs-identifier hs-var hs-var">argTargets</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; [FilePath]) -&gt; HaddockArgs -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-675"></span><span>    </span><span class="hs-special">]</span><span>
</span><span id="line-676"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-677"></span><span>      </span><span id="local-6989586621679730763"><span class="annot"><span class="annottext">renderInterfaces :: [(FilePath, Maybe FilePath, Maybe FilePath)] -&gt; [FilePath]
</span><a href="#local-6989586621679730763"><span class="hs-identifier hs-var hs-var">renderInterfaces</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((FilePath, Maybe FilePath, Maybe FilePath) -&gt; FilePath)
-&gt; [(FilePath, Maybe FilePath, Maybe FilePath)] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath, Maybe FilePath, Maybe FilePath) -&gt; FilePath
</span><a href="#local-6989586621679730756"><span class="hs-identifier hs-var">renderInterface</span></a></span><span>
</span><span id="line-678"></span><span>
</span><span id="line-679"></span><span>      </span><span class="annot"><a href="#local-6989586621679730756"><span class="hs-identifier hs-type">renderInterface</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-680"></span><span>      </span><span id="local-6989586621679730756"><span class="annot"><span class="annottext">renderInterface :: (FilePath, Maybe FilePath, Maybe FilePath) -&gt; FilePath
</span><a href="#local-6989586621679730756"><span class="hs-identifier hs-var hs-var">renderInterface</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679730755"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730755"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730754"><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730754"><span class="hs-identifier hs-var">html</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730753"><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730753"><span class="hs-identifier hs-var">hypsrc</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--read-interface=&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span>
</span><span id="line-681"></span><span>        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; FilePath
forall a. [a] -&gt; [[a]] -&gt; [a]
</span><a href="../../base/src/Data.OldList.html#intercalate"><span class="hs-identifier hs-var">intercalate</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;,&quot;</span></span><span> </span><span class="annot"><span class="annottext">([FilePath] -&gt; FilePath) -&gt; [FilePath] -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[[FilePath]] -&gt; [FilePath]
forall (t :: * -&gt; *) a. Foldable t =&gt; t [a] -&gt; [a]
</span><a href="../../base/src/Data.Foldable.html#concat"><span class="hs-identifier hs-var">concat</span></a></span><span> </span><span class="hs-special">[</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730752"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679730752"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730752"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730754"><span class="hs-identifier hs-var">html</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-682"></span><span>                                  </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730751"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730754"><span class="hs-identifier hs-var">html</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-683"></span><span>                                        </span><span class="hs-comment">-- only render hypsrc path if html path</span><span>
</span><span id="line-684"></span><span>                                        </span><span class="hs-comment">-- is given and hyperlinked-source is</span><span>
</span><span id="line-685"></span><span>                                        </span><span class="hs-comment">-- enabled</span><span>
</span><span id="line-686"></span><span>                                        </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679730751"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730751"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730753"><span class="hs-identifier hs-var">hypsrc</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-687"></span><span>                                        </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">17</span></span><span>
</span><span id="line-688"></span><span>                                        </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Bool -&gt; Bool)
-&gt; (HaddockArgs -&gt; Flag Bool) -&gt; HaddockArgs -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; Flag Bool
</span><a href="Distribution.Simple.Haddock.html#argLinkedSource"><span class="hs-identifier hs-var hs-var">argLinkedSource</span></a></span><span> </span><span class="annot"><span class="annottext">(HaddockArgs -&gt; Bool) -&gt; HaddockArgs -&gt; Bool
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockArgs
</span><a href="#local-6989586621679730779"><span class="hs-identifier hs-var">args</span></a></span><span>
</span><span id="line-689"></span><span>                                        </span><span class="hs-special">]</span><span>
</span><span id="line-690"></span><span>                                  </span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730755"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-691"></span><span>                                  </span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-692"></span><span>
</span><span id="line-693"></span><span>      </span><span id="local-6989586621679730770"><span class="annot"><span class="annottext">bool :: p -&gt; p -&gt; Bool -&gt; p
</span><a href="#local-6989586621679730770"><span class="hs-identifier hs-var hs-var">bool</span></a></span></span><span> </span><span id="local-6989586621679730750"><span class="annot"><span class="annottext">p
</span><a href="#local-6989586621679730750"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621679730749"><span class="annot"><span class="annottext">p
</span><a href="#local-6989586621679730749"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span id="local-6989586621679730748"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730748"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730748"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">p
</span><a href="#local-6989586621679730750"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">p
</span><a href="#local-6989586621679730749"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-694"></span><span>      </span><span id="local-6989586621679730776"><span class="annot"><span class="annottext">isVersion :: Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var hs-var">isVersion</span></a></span></span><span> </span><span id="local-6989586621679730746"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730746"><span class="hs-identifier hs-var">major</span></a></span></span><span> </span><span id="local-6989586621679730745"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730745"><span class="hs-identifier hs-var">minor</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Version
</span><a href="#local-6989586621679730782"><span class="hs-identifier hs-var">version</span></a></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730746"><span class="hs-identifier hs-var">major</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679730745"><span class="hs-identifier hs-var">minor</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-695"></span><span>      </span><span id="local-6989586621679730765"><span class="annot"><span class="annottext">verbosityFlag :: FilePath
</span><a href="#local-6989586621679730765"><span class="hs-identifier hs-var hs-var">verbosityFlag</span></a></span></span><span>
</span><span id="line-696"></span><span>       </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
</span><a href="#local-6989586621679730776"><span class="hs-identifier hs-var">isVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">5</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--verbosity=1&quot;</span></span><span>
</span><span id="line-697"></span><span>       </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;--verbose&quot;</span></span><span>
</span><span id="line-698"></span><span>
</span><span id="line-699"></span><span class="hs-comment">---------------------------------------------------------------------------------</span><span>
</span><span id="line-700"></span><span>
</span><span id="line-701"></span><span class="hs-comment">-- | Given a list of 'InstalledPackageInfo's, return a list of interfaces and</span><span>
</span><span id="line-702"></span><span class="hs-comment">-- HTML paths, and an optional warning for packages with missing documentation.</span><span>
</span><span id="line-703"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddockPackagePaths"><span class="hs-identifier hs-type">haddockPackagePaths</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier hs-type">InstalledPackageInfo</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-704"></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier hs-type">InstalledPackageInfo</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-705"></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>        </span><span class="hs-comment">-- path to interface</span><span>
</span><span id="line-706"></span><span>                                                         </span><span class="hs-comment">-- file</span><span>
</span><span id="line-707"></span><span>
</span><span id="line-708"></span><span>                                       </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>  </span><span class="hs-comment">-- url to html</span><span>
</span><span id="line-709"></span><span>                                                         </span><span class="hs-comment">-- documentation</span><span>
</span><span id="line-710"></span><span>
</span><span id="line-711"></span><span>                                       </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>  </span><span class="hs-comment">-- url to hyperlinked</span><span>
</span><span id="line-712"></span><span>                                                         </span><span class="hs-comment">-- source</span><span>
</span><span id="line-713"></span><span>                                       </span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-714"></span><span>                                     </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>      </span><span class="hs-comment">-- warning about</span><span>
</span><span id="line-715"></span><span>                                                         </span><span class="hs-comment">-- missing documentation</span><span>
</span><span id="line-716"></span><span>                                     </span><span class="hs-special">)</span><span>
</span><span id="line-717"></span><span id="haddockPackagePaths"><span class="annot"><span class="annottext">haddockPackagePaths :: [InstalledPackageInfo]
-&gt; Maybe (InstalledPackageInfo -&gt; FilePath)
-&gt; IO
     ([(FilePath, Maybe FilePath, Maybe FilePath)], Maybe FilePath)
</span><a href="Distribution.Simple.Haddock.html#haddockPackagePaths"><span class="hs-identifier hs-var hs-var">haddockPackagePaths</span></a></span></span><span> </span><span id="local-6989586621679730744"><span class="annot"><span class="annottext">[InstalledPackageInfo]
</span><a href="#local-6989586621679730744"><span class="hs-identifier hs-var">ipkgs</span></a></span></span><span> </span><span id="local-6989586621679730743"><span class="annot"><span class="annottext">Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="#local-6989586621679730743"><span class="hs-identifier hs-var">mkHtmlPath</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-718"></span><span>  </span><span id="local-6989586621679730742"><span class="annot"><span class="annottext">[Either
   PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730742"><span class="hs-identifier hs-var">interfaces</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[IO
   (Either
      PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath))]
-&gt; IO
     [Either
        PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)]
forall (t :: * -&gt; *) (f :: * -&gt; *) a.
(Traversable t, Applicative f) =&gt;
t (f a) -&gt; f (t a)
</span><a href="../../base/src/Data.Traversable.html#sequenceA"><span class="hs-identifier hs-var">sequenceA</span></a></span><span>
</span><span id="line-719"></span><span>    </span><span class="hs-special">[</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; Maybe (FilePath, Maybe FilePath)
</span><a href="#local-6989586621679730740"><span class="hs-identifier hs-var">interfaceAndHtmlPath</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730739"><span class="hs-identifier hs-var">ipkg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-720"></span><span>        </span><span class="annot"><span class="annottext">Maybe (FilePath, Maybe FilePath)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Either PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)
-&gt; IO
     (Either
        PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageIdentifier
-&gt; Either
     PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)
forall a b. a -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-var">Left</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730739"><span class="hs-identifier hs-var">ipkg</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-721"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679730738"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730738"><span class="hs-identifier hs-var">interface</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730737"><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730737"><span class="hs-identifier hs-var">html</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-722"></span><span>
</span><span id="line-723"></span><span>          </span><span class="hs-special">(</span><span id="local-6989586621679730736"><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730736"><span class="hs-identifier hs-var">html'</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730735"><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730735"><span class="hs-identifier hs-var">hypsrc'</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span>
</span><span id="line-724"></span><span>            </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730737"><span class="hs-identifier hs-var">html</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-725"></span><span>              </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679730734"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730734"><span class="hs-identifier hs-var">htmlPath</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-726"></span><span>                </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730733"><span class="annot"><span class="annottext">hypSrcPath :: FilePath
</span><a href="#local-6989586621679730733"><span class="hs-identifier hs-var hs-var">hypSrcPath</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730734"><span class="hs-identifier hs-var">htmlPath</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730732"><span class="hs-identifier hs-var">defaultHyperlinkedSourceDirectory</span></a></span><span>
</span><span id="line-727"></span><span>                </span><span id="local-6989586621679730731"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730731"><span class="hs-identifier hs-var">hypSrcExists</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; IO Bool
</span><a href="../../directory/src/System.Directory.html#doesDirectoryExist"><span class="hs-identifier hs-var">doesDirectoryExist</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730733"><span class="hs-identifier hs-var">hypSrcPath</span></a></span><span>
</span><span id="line-728"></span><span>                </span><span class="annot"><span class="annottext">(Maybe FilePath, Maybe FilePath)
-&gt; IO (Maybe FilePath, Maybe FilePath)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">((Maybe FilePath, Maybe FilePath)
 -&gt; IO (Maybe FilePath, Maybe FilePath))
-&gt; (Maybe FilePath, Maybe FilePath)
-&gt; IO (Maybe FilePath, Maybe FilePath)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Maybe FilePath
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679730730"><span class="hs-identifier hs-var">fixFileUrl</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730734"><span class="hs-identifier hs-var">htmlPath</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-729"></span><span>                         </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730731"><span class="hs-identifier hs-var">hypSrcExists</span></a></span><span>
</span><span id="line-730"></span><span>                           </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Maybe FilePath
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679730730"><span class="hs-identifier hs-var">fixFileUrl</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730733"><span class="hs-identifier hs-var">hypSrcPath</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-731"></span><span>                           </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-732"></span><span>                         </span><span class="hs-special">)</span><span>
</span><span id="line-733"></span><span>              </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Maybe FilePath, Maybe FilePath)
-&gt; IO (Maybe FilePath, Maybe FilePath)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe FilePath
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-734"></span><span>
</span><span id="line-735"></span><span>          </span><span id="local-6989586621679730729"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730729"><span class="hs-identifier hs-var">exists</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; IO Bool
</span><a href="../../directory/src/System.Directory.html#doesFileExist"><span class="hs-identifier hs-var">doesFileExist</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730738"><span class="hs-identifier hs-var">interface</span></a></span><span>
</span><span id="line-736"></span><span>          </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679730729"><span class="hs-identifier hs-var">exists</span></a></span><span>
</span><span id="line-737"></span><span>            </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Either PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)
-&gt; IO
     (Either
        PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(FilePath, Maybe FilePath, Maybe FilePath)
-&gt; Either
     PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)
forall a b. b -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-var">Right</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730738"><span class="hs-identifier hs-var">interface</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730736"><span class="hs-identifier hs-var">html'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730735"><span class="hs-identifier hs-var">hypsrc'</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-738"></span><span>            </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Either PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)
-&gt; IO
     (Either
        PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath))
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageIdentifier
-&gt; Either
     PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)
forall a b. a -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-var">Left</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730728"><span class="hs-identifier hs-var">pkgid</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-739"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679730739"><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730739"><span class="hs-identifier hs-var">ipkg</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[InstalledPackageInfo]
</span><a href="#local-6989586621679730744"><span class="hs-identifier hs-var">ipkgs</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730728"><span class="annot"><span class="annottext">pkgid :: PackageIdentifier
</span><a href="#local-6989586621679730728"><span class="hs-identifier hs-var hs-var">pkgid</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730739"><span class="hs-identifier hs-var">ipkg</span></a></span><span>
</span><span id="line-740"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; PackageName
</span><a href="Distribution.Types.PackageId.html#pkgName"><span class="hs-identifier hs-var hs-var">pkgName</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730728"><span class="hs-identifier hs-var">pkgid</span></a></span><span> </span><span class="annot"><span class="annottext">PackageName -&gt; [PackageName] -&gt; Bool
forall (t :: * -&gt; *) a. (Foldable t, Eq a) =&gt; a -&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#notElem"><span class="hs-operator hs-var">`notElem`</span></a></span><span> </span><span class="annot"><span class="annottext">[PackageName]
</span><a href="#local-6989586621679730725"><span class="hs-identifier hs-var">noHaddockWhitelist</span></a></span><span>
</span><span id="line-741"></span><span>    </span><span class="hs-special">]</span><span>
</span><span id="line-742"></span><span>
</span><span id="line-743"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730724"><span class="annot"><span class="annottext">missing :: [PackageIdentifier]
</span><a href="#local-6989586621679730724"><span class="hs-identifier hs-var hs-var">missing</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730723"><span class="hs-identifier hs-var">pkgid</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679730723"><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730723"><span class="hs-identifier hs-var">pkgid</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[Either
   PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730742"><span class="hs-identifier hs-var">interfaces</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-744"></span><span>      </span><span id="local-6989586621679730721"><span class="annot"><span class="annottext">warning :: FilePath
</span><a href="#local-6989586621679730721"><span class="hs-identifier hs-var hs-var">warning</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;The documentation for the following packages are not &quot;</span></span><span>
</span><span id="line-745"></span><span>             </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;installed. No links will be generated to these packages: &quot;</span></span><span>
</span><span id="line-746"></span><span>             </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; FilePath
forall a. [a] -&gt; [[a]] -&gt; [a]
</span><a href="../../base/src/Data.OldList.html#intercalate"><span class="hs-identifier hs-var">intercalate</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;, &quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(PackageIdentifier -&gt; FilePath)
-&gt; [PackageIdentifier] -&gt; [FilePath]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; FilePath
forall a. Pretty a =&gt; a -&gt; FilePath
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">[PackageIdentifier]
</span><a href="#local-6989586621679730724"><span class="hs-identifier hs-var">missing</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-747"></span><span>      </span><span id="local-6989586621679730720"><span class="annot"><span class="annottext">flags :: [(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730720"><span class="hs-identifier hs-var hs-var">flags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Either
   PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)]
-&gt; [(FilePath, Maybe FilePath, Maybe FilePath)]
forall a b. [Either a b] -&gt; [b]
</span><a href="../../base/src/Data.Either.html#rights"><span class="hs-identifier hs-var">rights</span></a></span><span> </span><span class="annot"><span class="annottext">[Either
   PackageIdentifier (FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730742"><span class="hs-identifier hs-var">interfaces</span></a></span><span>
</span><span id="line-748"></span><span>
</span><span id="line-749"></span><span>  </span><span class="annot"><span class="annottext">([(FilePath, Maybe FilePath, Maybe FilePath)], Maybe FilePath)
-&gt; IO
     ([(FilePath, Maybe FilePath, Maybe FilePath)], Maybe FilePath)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[(FilePath, Maybe FilePath, Maybe FilePath)]
</span><a href="#local-6989586621679730720"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">[PackageIdentifier] -&gt; Bool
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#null"><span class="hs-identifier hs-var">null</span></a></span><span> </span><span class="annot"><span class="annottext">[PackageIdentifier]
</span><a href="#local-6989586621679730724"><span class="hs-identifier hs-var">missing</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Maybe FilePath
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730721"><span class="hs-identifier hs-var">warning</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-750"></span><span>
</span><span id="line-751"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-752"></span><span>    </span><span class="hs-comment">-- Don't warn about missing documentation for these packages. See #1231.</span><span>
</span><span id="line-753"></span><span>    </span><span id="local-6989586621679730725"><span class="annot"><span class="annottext">noHaddockWhitelist :: [PackageName]
</span><a href="#local-6989586621679730725"><span class="hs-identifier hs-var hs-var">noHaddockWhitelist</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; PackageName) -&gt; [FilePath] -&gt; [PackageName]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; PackageName
</span><a href="Distribution.Types.PackageName.html#mkPackageName"><span class="hs-identifier hs-var">mkPackageName</span></a></span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;rts&quot;</span></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-754"></span><span>
</span><span id="line-755"></span><span>    </span><span class="hs-comment">-- Actually extract interface and HTML paths from an 'InstalledPackageInfo'.</span><span>
</span><span id="line-756"></span><span>    </span><span class="annot"><a href="#local-6989586621679730740"><span class="hs-identifier hs-type">interfaceAndHtmlPath</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier hs-type">InstalledPackageInfo</span></a></span><span>
</span><span id="line-757"></span><span>                         </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-758"></span><span>    </span><span id="local-6989586621679730740"><span class="annot"><span class="annottext">interfaceAndHtmlPath :: InstalledPackageInfo -&gt; Maybe (FilePath, Maybe FilePath)
</span><a href="#local-6989586621679730740"><span class="hs-identifier hs-var hs-var">interfaceAndHtmlPath</span></a></span></span><span> </span><span id="local-6989586621679730718"><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730718"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-759"></span><span>      </span><span id="local-6989586621679730717"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730717"><span class="hs-identifier hs-var">interface</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; Maybe FilePath
forall a. [a] -&gt; Maybe a
</span><a href="../../base/src/Data.Maybe.html#listToMaybe"><span class="hs-identifier hs-var">listToMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; [FilePath]
</span><a href="Distribution.Types.InstalledPackageInfo.html#haddockInterfaces"><span class="hs-identifier hs-var hs-var">InstalledPackageInfo.haddockInterfaces</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730718"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-760"></span><span>      </span><span id="local-6989586621679730714"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730714"><span class="hs-identifier hs-var">html</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="#local-6989586621679730743"><span class="hs-identifier hs-var">mkHtmlPath</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-761"></span><span>        </span><span class="annot"><span class="annottext">Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>     </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">[FilePath] -&gt; Maybe FilePath
forall a. [a] -&gt; Maybe a
</span><a href="../../base/src/Data.Maybe.html#listToMaybe"><span class="hs-identifier hs-var">listToMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; [FilePath]
</span><a href="Distribution.Types.InstalledPackageInfo.html#haddockHTMLs"><span class="hs-identifier hs-var hs-var">InstalledPackageInfo.haddockHTMLs</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730718"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-762"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679730712"><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; FilePath
</span><a href="#local-6989586621679730712"><span class="hs-identifier hs-var">mkPath</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Maybe FilePath
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; FilePath
</span><a href="#local-6989586621679730712"><span class="hs-identifier hs-var">mkPath</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679730718"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-763"></span><span>      </span><span class="annot"><span class="annottext">(FilePath, Maybe FilePath) -&gt; Maybe (FilePath, Maybe FilePath)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730717"><span class="hs-identifier hs-var">interface</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Bool
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#null"><span class="hs-identifier hs-var">null</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730714"><span class="hs-identifier hs-var">html</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Maybe FilePath
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730714"><span class="hs-identifier hs-var">html</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-764"></span><span>
</span><span id="line-765"></span><span>    </span><span class="hs-comment">-- The 'haddock-html' field in the hc-pkg output is often set as a</span><span>
</span><span id="line-766"></span><span>    </span><span class="hs-comment">-- native path, but we need it as a URL. See #1064. Also don't &quot;fix&quot;</span><span>
</span><span id="line-767"></span><span>    </span><span class="hs-comment">-- the path if it is an interpolated one.</span><span>
</span><span id="line-768"></span><span>    </span><span id="local-6989586621679730730"><span class="annot"><span class="annottext">fixFileUrl :: ShowS
</span><a href="#local-6989586621679730730"><span class="hs-identifier hs-var hs-var">fixFileUrl</span></a></span></span><span> </span><span id="local-6989586621679730711"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730711"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="#local-6989586621679730743"><span class="hs-identifier hs-var">mkHtmlPath</span></a></span><span>
</span><span id="line-769"></span><span>                 </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Bool
</span><a href="../../filepath/src/System.FilePath.Windows.html#isAbsolute"><span class="hs-identifier hs-var">isAbsolute</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730711"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;file://&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730711"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-770"></span><span>                 </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730711"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-771"></span><span>
</span><span id="line-772"></span><span>    </span><span class="hs-comment">-- 'src' is the default hyperlinked source directory ever since. It is</span><span>
</span><span id="line-773"></span><span>    </span><span class="hs-comment">-- not possible to configure that directory in any way in haddock.</span><span>
</span><span id="line-774"></span><span>    </span><span id="local-6989586621679730732"><span class="annot"><span class="annottext">defaultHyperlinkedSourceDirectory :: FilePath
</span><a href="#local-6989586621679730732"><span class="hs-identifier hs-var hs-var">defaultHyperlinkedSourceDirectory</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src&quot;</span></span><span>
</span><span id="line-775"></span><span>
</span><span id="line-776"></span><span>
</span><span id="line-777"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddockPackageFlags"><span class="hs-identifier hs-type">haddockPackageFlags</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-778"></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-779"></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span>
</span><span id="line-780"></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplate"><span class="hs-identifier hs-type">PathTemplate</span></a></span><span>
</span><span id="line-781"></span><span>                    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>        </span><span class="hs-comment">-- path to interface</span><span>
</span><span id="line-782"></span><span>                                              </span><span class="hs-comment">-- file</span><span>
</span><span id="line-783"></span><span>
</span><span id="line-784"></span><span>                            </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>  </span><span class="hs-comment">-- url to html</span><span>
</span><span id="line-785"></span><span>                                              </span><span class="hs-comment">-- documentation</span><span>
</span><span id="line-786"></span><span>
</span><span id="line-787"></span><span>                            </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>  </span><span class="hs-comment">-- url to hyperlinked</span><span>
</span><span id="line-788"></span><span>                                              </span><span class="hs-comment">-- source</span><span>
</span><span id="line-789"></span><span>                            </span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-790"></span><span>                          </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>      </span><span class="hs-comment">-- warning about</span><span>
</span><span id="line-791"></span><span>                                              </span><span class="hs-comment">-- missing documentation</span><span>
</span><span id="line-792"></span><span>                          </span><span class="hs-special">)</span><span>
</span><span id="line-793"></span><span id="haddockPackageFlags"><span class="annot"><span class="annottext">haddockPackageFlags :: Verbosity
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Maybe PathTemplate
-&gt; IO
     ([(FilePath, Maybe FilePath, Maybe FilePath)], Maybe FilePath)
</span><a href="Distribution.Simple.Haddock.html#haddockPackageFlags"><span class="hs-identifier hs-var hs-var">haddockPackageFlags</span></a></span></span><span> </span><span id="local-6989586621679730710"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730710"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679730709"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730709"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730708"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730708"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span id="local-6989586621679730707"><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730707"><span class="hs-identifier hs-var">htmlTemplate</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-794"></span><span>  </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730706"><span class="annot"><span class="annottext">allPkgs :: InstalledPackageIndex
</span><a href="#local-6989586621679730706"><span class="hs-identifier hs-var hs-var">allPkgs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; InstalledPackageIndex
</span><a href="Distribution.Types.LocalBuildInfo.html#installedPkgs"><span class="hs-identifier hs-var hs-var">installedPkgs</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730709"><span class="hs-identifier hs-var">lbi</span></a></span><span>
</span><span id="line-795"></span><span>      </span><span id="local-6989586621679730705"><span class="annot"><span class="annottext">directDeps :: [UnitId]
</span><a href="#local-6989586621679730705"><span class="hs-identifier hs-var hs-var">directDeps</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((UnitId, MungedPackageId) -&gt; UnitId)
-&gt; [(UnitId, MungedPackageId)] -&gt; [UnitId]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(UnitId, MungedPackageId) -&gt; UnitId
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentLocalBuildInfo -&gt; [(UnitId, MungedPackageId)]
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#componentPackageDeps"><span class="hs-identifier hs-var hs-var">componentPackageDeps</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730708"><span class="hs-identifier hs-var">clbi</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-796"></span><span>  </span><span id="local-6989586621679730703"><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679730703"><span class="hs-identifier hs-var">transitiveDeps</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
-&gt; [UnitId]
-&gt; Either InstalledPackageIndex [(InstalledPackageInfo, [UnitId])]
</span><a href="Distribution.Simple.PackageIndex.html#dependencyClosure"><span class="hs-identifier hs-var">PackageIndex.dependencyClosure</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679730706"><span class="hs-identifier hs-var">allPkgs</span></a></span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679730705"><span class="hs-identifier hs-var">directDeps</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-797"></span><span>    </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679730701"><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679730701"><span class="hs-identifier hs-var">x</span></a></span></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; IO InstalledPackageIndex
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679730701"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-798"></span><span>    </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679730700"><span class="annot"><span class="annottext">[(InstalledPackageInfo, [UnitId])]
</span><a href="#local-6989586621679730700"><span class="hs-identifier hs-var">inf</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO InstalledPackageIndex
forall a. Verbosity -&gt; FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730710"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO InstalledPackageIndex)
-&gt; FilePath -&gt; IO InstalledPackageIndex
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;internal error when calculating transitive &quot;</span></span><span>
</span><span id="line-799"></span><span>                    </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;package dependencies.\nDebug info: &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[(InstalledPackageInfo, [UnitId])] -&gt; FilePath
forall a. Show a =&gt; a -&gt; FilePath
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">[(InstalledPackageInfo, [UnitId])]
</span><a href="#local-6989586621679730700"><span class="hs-identifier hs-var">inf</span></a></span><span>
</span><span id="line-800"></span><span>  </span><span class="annot"><span class="annottext">[InstalledPackageInfo]
-&gt; Maybe (InstalledPackageInfo -&gt; FilePath)
-&gt; IO
     ([(FilePath, Maybe FilePath, Maybe FilePath)], Maybe FilePath)
</span><a href="Distribution.Simple.Haddock.html#haddockPackagePaths"><span class="hs-identifier hs-var">haddockPackagePaths</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; [InstalledPackageInfo]
forall a. PackageIndex a -&gt; [a]
</span><a href="Distribution.Simple.PackageIndex.html#allPackages"><span class="hs-identifier hs-var">PackageIndex.allPackages</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679730703"><span class="hs-identifier hs-var">transitiveDeps</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="#local-6989586621679730698"><span class="hs-identifier hs-var">mkHtmlPath</span></a></span><span>
</span><span id="line-801"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-802"></span><span>      </span><span id="local-6989586621679730698"><span class="annot"><span class="annottext">mkHtmlPath :: Maybe (InstalledPackageInfo -&gt; FilePath)
</span><a href="#local-6989586621679730698"><span class="hs-identifier hs-var hs-var">mkHtmlPath</span></a></span></span><span>                  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(PathTemplate -&gt; InstalledPackageInfo -&gt; FilePath)
-&gt; Maybe PathTemplate -&gt; Maybe (InstalledPackageInfo -&gt; FilePath)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">PathTemplate -&gt; InstalledPackageInfo -&gt; FilePath
forall {pkg}. Package pkg =&gt; PathTemplate -&gt; pkg -&gt; FilePath
</span><a href="#local-6989586621679730695"><span class="hs-identifier hs-var">expandTemplateVars</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe PathTemplate
</span><a href="#local-6989586621679730707"><span class="hs-identifier hs-var">htmlTemplate</span></a></span><span>
</span><span id="line-803"></span><span>      </span><span id="local-6989586621679730695"><span class="annot"><span class="annottext">expandTemplateVars :: PathTemplate -&gt; pkg -&gt; FilePath
</span><a href="#local-6989586621679730695"><span class="hs-identifier hs-var hs-var">expandTemplateVars</span></a></span></span><span> </span><span id="local-6989586621679730692"><span class="annot"><span class="annottext">PathTemplate
</span><a href="#local-6989586621679730692"><span class="hs-identifier hs-var">tmpl</span></a></span></span><span> </span><span id="local-6989586621679730691"><span class="annot"><span class="annottext">pkg
</span><a href="#local-6989586621679730691"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-804"></span><span>        </span><span class="annot"><span class="annottext">PathTemplate -&gt; FilePath
</span><a href="Distribution.Simple.InstallDirs.html#fromPathTemplate"><span class="hs-identifier hs-var">fromPathTemplate</span></a></span><span> </span><span class="annot"><span class="annottext">(PathTemplate -&gt; FilePath)
-&gt; (PathTemplate -&gt; PathTemplate) -&gt; PathTemplate -&gt; FilePath
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">PathTemplateEnv -&gt; PathTemplate -&gt; PathTemplate
</span><a href="Distribution.Simple.InstallDirs.html#substPathTemplate"><span class="hs-identifier hs-var">substPathTemplate</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">pkg -&gt; PathTemplateEnv
forall {pkg}. Package pkg =&gt; pkg -&gt; PathTemplateEnv
</span><a href="#local-6989586621679730690"><span class="hs-identifier hs-var">env</span></a></span><span> </span><span class="annot"><span class="annottext">pkg
</span><a href="#local-6989586621679730691"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(PathTemplate -&gt; FilePath) -&gt; PathTemplate -&gt; FilePath
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">PathTemplate
</span><a href="#local-6989586621679730692"><span class="hs-identifier hs-var">tmpl</span></a></span><span>
</span><span id="line-805"></span><span>      </span><span id="local-6989586621679730690"><span class="annot"><span class="annottext">env :: pkg -&gt; PathTemplateEnv
</span><a href="#local-6989586621679730690"><span class="hs-identifier hs-var hs-var">env</span></a></span></span><span> </span><span id="local-6989586621679730687"><span class="annot"><span class="annottext">pkg
</span><a href="#local-6989586621679730687"><span class="hs-identifier hs-var">pkg</span></a></span></span><span>                     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; PackageIdentifier -&gt; PathTemplateEnv
</span><a href="Distribution.Simple.Haddock.html#haddockTemplateEnv"><span class="hs-identifier hs-var">haddockTemplateEnv</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730709"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">pkg -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">pkg
</span><a href="#local-6989586621679730687"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-806"></span><span>
</span><span id="line-807"></span><span>
</span><span id="line-808"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddockTemplateEnv"><span class="hs-identifier hs-type">haddockTemplateEnv</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.PackageId.html#PackageIdentifier"><span class="hs-identifier hs-type">PackageIdentifier</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.InstallDirs.html#PathTemplateEnv"><span class="hs-identifier hs-type">PathTemplateEnv</span></a></span><span>
</span><span id="line-809"></span><span id="haddockTemplateEnv"><span class="annot"><span class="annottext">haddockTemplateEnv :: LocalBuildInfo -&gt; PackageIdentifier -&gt; PathTemplateEnv
</span><a href="Distribution.Simple.Haddock.html#haddockTemplateEnv"><span class="hs-identifier hs-var hs-var">haddockTemplateEnv</span></a></span></span><span> </span><span id="local-6989586621679730686"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730686"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730685"><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730685"><span class="hs-identifier hs-var">pkg_id</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-810"></span><span>  </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PathTemplateVariable
</span><a href="Distribution.Simple.InstallDirs.Internal.html#PrefixVar"><span class="hs-identifier hs-var">PrefixVar</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">InstallDirs PathTemplate -&gt; PathTemplate
forall dir. InstallDirs dir -&gt; dir
</span><a href="Distribution.Simple.InstallDirs.html#prefix"><span class="hs-identifier hs-var hs-var">prefix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; InstallDirs PathTemplate
</span><a href="Distribution.Types.LocalBuildInfo.html#installDirTemplates"><span class="hs-identifier hs-var hs-var">installDirTemplates</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730686"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-811"></span><span>  </span><span class="hs-comment">-- We want the legacy unit ID here, because it gives us nice paths</span><span>
</span><span id="line-812"></span><span>  </span><span class="hs-comment">-- (Haddock people don't care about the dependencies)</span><span>
</span><span id="line-813"></span><span>  </span><span class="annot"><span class="annottext">(PathTemplateVariable, PathTemplate)
-&gt; PathTemplateEnv -&gt; PathTemplateEnv
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
-&gt; UnitId -&gt; CompilerInfo -&gt; Platform -&gt; PathTemplateEnv
</span><a href="Distribution.Simple.InstallDirs.html#initialPathTemplateEnv"><span class="hs-identifier hs-var">initialPathTemplateEnv</span></a></span><span>
</span><span id="line-814"></span><span>      </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730685"><span class="hs-identifier hs-var">pkg_id</span></a></span><span>
</span><span id="line-815"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageIdentifier -&gt; UnitId
</span><a href="Distribution.Types.UnitId.html#mkLegacyUnitId"><span class="hs-identifier hs-var">mkLegacyUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier
</span><a href="#local-6989586621679730685"><span class="hs-identifier hs-var">pkg_id</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-816"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Compiler -&gt; CompilerInfo
</span><a href="Distribution.Simple.Compiler.html#compilerInfo"><span class="hs-identifier hs-var">compilerInfo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Compiler
</span><a href="Distribution.Types.LocalBuildInfo.html#compiler"><span class="hs-identifier hs-var hs-var">compiler</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730686"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-817"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; Platform
</span><a href="Distribution.Types.LocalBuildInfo.html#hostPlatform"><span class="hs-identifier hs-var hs-var">hostPlatform</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730686"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-818"></span><span>
</span><span id="line-819"></span><span class="hs-comment">-- ------------------------------------------------------------------------------</span><span>
</span><span id="line-820"></span><span class="hs-comment">-- hscolour support.</span><span>
</span><span id="line-821"></span><span>
</span><span id="line-822"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#hscolour"><span class="hs-identifier hs-type">hscolour</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.PackageDescription.html#PackageDescription"><span class="hs-identifier hs-type">PackageDescription</span></a></span><span>
</span><span id="line-823"></span><span>         </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-824"></span><span>         </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Simple.PreProcess.html#PPSuffixHandler"><span class="hs-identifier hs-type">PPSuffixHandler</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-825"></span><span>         </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HscolourFlags"><span class="hs-identifier hs-type">HscolourFlags</span></a></span><span>
</span><span id="line-826"></span><span>         </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-827"></span><span id="hscolour"><span class="annot"><span class="annottext">hscolour :: PackageDescription
-&gt; LocalBuildInfo -&gt; [PPSuffixHandler] -&gt; HscolourFlags -&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#hscolour"><span class="hs-identifier hs-var hs-var">hscolour</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ())
-&gt; HaddockTarget
-&gt; PackageDescription
-&gt; LocalBuildInfo
-&gt; [PPSuffixHandler]
-&gt; HscolourFlags
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#hscolour%27"><span class="hs-identifier hs-var">hscolour'</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; IO ()
forall a. FilePath -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#dieNoVerbosity"><span class="hs-identifier hs-var">dieNoVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="Distribution.Simple.Setup.html#ForDevelopment"><span class="hs-identifier hs-var">ForDevelopment</span></a></span><span>
</span><span id="line-828"></span><span>
</span><span id="line-829"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#hscolour%27"><span class="hs-identifier hs-type">hscolour'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ Called when the 'hscolour' exe is not found.</span><span>
</span><span id="line-830"></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HaddockTarget"><span class="hs-identifier hs-type">HaddockTarget</span></a></span><span>
</span><span id="line-831"></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.PackageDescription.html#PackageDescription"><span class="hs-identifier hs-type">PackageDescription</span></a></span><span>
</span><span id="line-832"></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.LocalBuildInfo.html#LocalBuildInfo"><span class="hs-identifier hs-type">LocalBuildInfo</span></a></span><span>
</span><span id="line-833"></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Simple.PreProcess.html#PPSuffixHandler"><span class="hs-identifier hs-type">PPSuffixHandler</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-834"></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HscolourFlags"><span class="hs-identifier hs-type">HscolourFlags</span></a></span><span>
</span><span id="line-835"></span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-836"></span><span id="hscolour%27"><span class="annot"><span class="annottext">hscolour' :: (FilePath -&gt; IO ())
-&gt; HaddockTarget
-&gt; PackageDescription
-&gt; LocalBuildInfo
-&gt; [PPSuffixHandler]
-&gt; HscolourFlags
-&gt; IO ()
</span><a href="Distribution.Simple.Haddock.html#hscolour%27"><span class="hs-identifier hs-var hs-var">hscolour'</span></a></span></span><span> </span><span id="local-6989586621679730677"><span class="annot"><span class="annottext">FilePath -&gt; IO ()
</span><a href="#local-6989586621679730677"><span class="hs-identifier hs-var">onNoHsColour</span></a></span></span><span> </span><span id="local-6989586621679730676"><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679730676"><span class="hs-identifier hs-var">haddockTarget</span></a></span></span><span> </span><span id="local-6989586621679730675"><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span></span><span> </span><span id="local-6989586621679730674"><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span></span><span> </span><span id="local-6989586621679730673"><span class="annot"><span class="annottext">[PPSuffixHandler]
</span><a href="#local-6989586621679730673"><span class="hs-identifier hs-var">suffixes</span></a></span></span><span> </span><span id="local-6989586621679730672"><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-837"></span><span>    </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ())
-&gt; ((ConfiguredProgram, Version, ProgramDb) -&gt; IO ())
-&gt; Either FilePath (ConfiguredProgram, Version, ProgramDb)
-&gt; IO ()
forall a c b. (a -&gt; c) -&gt; (b -&gt; c) -&gt; Either a b -&gt; c
</span><a href="../../base/src/Data.Either.html#either"><span class="hs-identifier hs-var">either</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; IO ()
</span><a href="#local-6989586621679730677"><span class="hs-identifier hs-var">onNoHsColour</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679730670"><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730670"><span class="hs-identifier hs-var">hscolourProg</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ProgramDb
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram -&gt; IO ()
</span><a href="#local-6989586621679730669"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730670"><span class="hs-identifier hs-var">hscolourProg</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Either FilePath (ConfiguredProgram, Version, ProgramDb) -&gt; IO ())
-&gt; IO (Either FilePath (ConfiguredProgram, Version, ProgramDb))
-&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; (a -&gt; m b) -&gt; m a -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3D%3C%3C"><span class="hs-operator hs-var">=&lt;&lt;</span></a></span><span>
</span><span id="line-838"></span><span>      </span><span class="annot"><span class="annottext">Verbosity
-&gt; Program
-&gt; VersionRange
-&gt; ProgramDb
-&gt; IO (Either FilePath (ConfiguredProgram, Version, ProgramDb))
</span><a href="Distribution.Simple.Program.Db.html#lookupProgramVersion"><span class="hs-identifier hs-var">lookupProgramVersion</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Program
</span><a href="Distribution.Simple.Program.Builtin.html#hscolourProgram"><span class="hs-identifier hs-var">hscolourProgram</span></a></span><span>
</span><span id="line-839"></span><span>      </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Version -&gt; VersionRange
</span><a href="Distribution.Types.VersionRange.Internal.html#orLaterVersion"><span class="hs-identifier hs-var">orLaterVersion</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">8</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalBuildInfo -&gt; ProgramDb
</span><a href="Distribution.Types.LocalBuildInfo.html#withPrograms"><span class="hs-identifier hs-var hs-var">withPrograms</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-840"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-841"></span><span>    </span><span class="annot"><a href="#local-6989586621679730669"><span class="hs-identifier hs-type">go</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Program.Types.html#ConfiguredProgram"><span class="hs-identifier hs-type">ConfiguredProgram</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-842"></span><span>    </span><span id="local-6989586621679730669"><span class="annot"><span class="annottext">go :: ConfiguredProgram -&gt; IO ()
</span><a href="#local-6989586621679730669"><span class="hs-identifier hs-var hs-var">go</span></a></span></span><span> </span><span id="local-6989586621679730664"><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730664"><span class="hs-identifier hs-var">hscolourProg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-843"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-844"></span><span>        </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;the 'cabal hscolour' command is deprecated in favour of 'cabal &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span>
</span><span id="line-845"></span><span>        </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;haddock --hyperlink-source' and will be removed in the next major &quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span>
</span><span id="line-846"></span><span>        </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;release.&quot;</span></span><span>
</span><span id="line-847"></span><span>
</span><span id="line-848"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; PackageIdentifier -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#setupMessage"><span class="hs-identifier hs-var">setupMessage</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Running hscolour for&quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-849"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; Bool -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#createDirectoryIfMissingVerbose"><span class="hs-identifier hs-var">createDirectoryIfMissingVerbose</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; IO ()) -&gt; FilePath -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-850"></span><span>        </span><span class="annot"><span class="annottext">HaddockTarget -&gt; FilePath -&gt; PackageDescription -&gt; FilePath
</span><a href="Distribution.Simple.BuildPaths.html#hscolourPref"><span class="hs-identifier hs-var">hscolourPref</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679730676"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730661"><span class="hs-identifier hs-var">distPref</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-851"></span><span>
</span><span id="line-852"></span><span>      </span><span class="annot"><span class="annottext">PackageDescription
-&gt; LocalBuildInfo
-&gt; (Component -&gt; ComponentLocalBuildInfo -&gt; IO ())
-&gt; IO ()
</span><a href="Distribution.Simple.LocalBuildInfo.html#withAllComponentsInBuildOrder"><span class="hs-identifier hs-var">withAllComponentsInBuildOrder</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">((Component -&gt; ComponentLocalBuildInfo -&gt; IO ()) -&gt; IO ())
-&gt; (Component -&gt; ComponentLocalBuildInfo -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679730659"><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730659"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span id="local-6989586621679730658"><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730658"><span class="hs-identifier hs-var">clbi</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-853"></span><span>        </span><span class="annot"><span class="annottext">FilePath
-&gt; PackageDescription
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Verbosity
-&gt; IO ()
</span><a href="Distribution.Simple.Build.html#componentInitialBuildSteps"><span class="hs-identifier hs-var">componentInitialBuildSteps</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730661"><span class="hs-identifier hs-var">distPref</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730658"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span>
</span><span id="line-854"></span><span>        </span><span class="annot"><span class="annottext">PackageDescription
-&gt; Component
-&gt; LocalBuildInfo
-&gt; ComponentLocalBuildInfo
-&gt; Bool
-&gt; Verbosity
-&gt; [PPSuffixHandler]
-&gt; IO ()
</span><a href="Distribution.Simple.PreProcess.html#preprocessComponent"><span class="hs-identifier hs-var">preprocessComponent</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730659"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730658"><span class="hs-identifier hs-var">clbi</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">[PPSuffixHandler]
</span><a href="#local-6989586621679730673"><span class="hs-identifier hs-var">suffixes</span></a></span><span>
</span><span id="line-855"></span><span>        </span><span class="hs-keyword">let</span><span>
</span><span id="line-856"></span><span>          </span><span id="local-6989586621679730651"><span class="annot"><span class="annottext">doExe :: Component -&gt; IO ()
</span><a href="#local-6989586621679730651"><span class="hs-identifier hs-var hs-var">doExe</span></a></span></span><span> </span><span id="local-6989586621679730650"><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730650"><span class="hs-identifier hs-var">com</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Component -&gt; Maybe Executable
</span><a href="Distribution.Simple.Haddock.html#compToExe"><span class="hs-identifier hs-var">compToExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730650"><span class="hs-identifier hs-var">com</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-857"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679730649"><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730649"><span class="hs-identifier hs-var">exe</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-858"></span><span>              </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730648"><span class="annot"><span class="annottext">outputDir :: FilePath
</span><a href="#local-6989586621679730648"><span class="hs-identifier hs-var hs-var">outputDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockTarget -&gt; FilePath -&gt; PackageDescription -&gt; FilePath
</span><a href="Distribution.Simple.BuildPaths.html#hscolourPref"><span class="hs-identifier hs-var">hscolourPref</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679730676"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730661"><span class="hs-identifier hs-var">distPref</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-859"></span><span>                              </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName -&gt; FilePath
</span><a href="Distribution.Types.UnqualComponentName.html#unUnqualComponentName"><span class="hs-identifier hs-var">unUnqualComponentName</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Executable -&gt; UnqualComponentName
</span><a href="Distribution.Types.Executable.html#exeName"><span class="hs-identifier hs-var hs-var">exeName</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730649"><span class="hs-identifier hs-var">exe</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src&quot;</span></span><span>
</span><span id="line-860"></span><span>              </span><span class="annot"><span class="annottext">ConfiguredProgram -&gt; FilePath -&gt; [(ModuleName, FilePath)] -&gt; IO ()
forall {t :: * -&gt; *}.
Foldable t =&gt;
ConfiguredProgram -&gt; FilePath -&gt; t (ModuleName, FilePath) -&gt; IO ()
</span><a href="#local-6989586621679730647"><span class="hs-identifier hs-var">runHsColour</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730664"><span class="hs-identifier hs-var">hscolourProg</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730648"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">([(ModuleName, FilePath)] -&gt; IO ())
-&gt; IO [(ModuleName, FilePath)] -&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; (a -&gt; m b) -&gt; m a -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3D%3C%3C"><span class="hs-operator hs-var">=&lt;&lt;</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; Executable
-&gt; ComponentLocalBuildInfo
-&gt; IO [(ModuleName, FilePath)]
</span><a href="Distribution.Simple.BuildPaths.html#getExeSourceFiles"><span class="hs-identifier hs-var">getExeSourceFiles</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><a href="#local-6989586621679730649"><span class="hs-identifier hs-var">exe</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730658"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-861"></span><span>            </span><span class="annot"><span class="annottext">Maybe Executable
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-862"></span><span>              </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Verbosity -&gt; Verbosity
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="annot"><span class="annottext">(Flag Verbosity -&gt; Verbosity) -&gt; Flag Verbosity -&gt; Verbosity
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#hscolourVerbosity"><span class="hs-identifier hs-var hs-var">hscolourVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-863"></span><span>                </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;Unsupported component, skipping...&quot;</span></span><span>
</span><span id="line-864"></span><span>              </span><span class="annot"><span class="annottext">() -&gt; IO ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-865"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730659"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-866"></span><span>          </span><span class="annot"><a href="Distribution.Types.Component.html#CLib"><span class="hs-identifier hs-type">CLib</span></a></span><span> </span><span id="local-6989586621679730645"><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679730645"><span class="hs-identifier hs-var">lib</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-867"></span><span>            </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730644"><span class="annot"><span class="annottext">outputDir :: FilePath
</span><a href="#local-6989586621679730644"><span class="hs-identifier hs-var hs-var">outputDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockTarget -&gt; FilePath -&gt; PackageDescription -&gt; FilePath
</span><a href="Distribution.Simple.BuildPaths.html#hscolourPref"><span class="hs-identifier hs-var">hscolourPref</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679730676"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730661"><span class="hs-identifier hs-var">distPref</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src&quot;</span></span><span>
</span><span id="line-868"></span><span>            </span><span class="annot"><span class="annottext">ConfiguredProgram -&gt; FilePath -&gt; [(ModuleName, FilePath)] -&gt; IO ()
forall {t :: * -&gt; *}.
Foldable t =&gt;
ConfiguredProgram -&gt; FilePath -&gt; t (ModuleName, FilePath) -&gt; IO ()
</span><a href="#local-6989586621679730647"><span class="hs-identifier hs-var">runHsColour</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730664"><span class="hs-identifier hs-var">hscolourProg</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730644"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">([(ModuleName, FilePath)] -&gt; IO ())
-&gt; IO [(ModuleName, FilePath)] -&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; (a -&gt; m b) -&gt; m a -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3D%3C%3C"><span class="hs-operator hs-var">=&lt;&lt;</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; Library
-&gt; ComponentLocalBuildInfo
-&gt; IO [(ModuleName, FilePath)]
</span><a href="Distribution.Simple.BuildPaths.html#getLibSourceFiles"><span class="hs-identifier hs-var">getLibSourceFiles</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679730645"><span class="hs-identifier hs-var">lib</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730658"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-869"></span><span>          </span><span class="annot"><a href="Distribution.Types.Component.html#CFLib"><span class="hs-identifier hs-type">CFLib</span></a></span><span> </span><span id="local-6989586621679730643"><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730643"><span class="hs-identifier hs-var">flib</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-870"></span><span>            </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679730642"><span class="annot"><span class="annottext">outputDir :: FilePath
</span><a href="#local-6989586621679730642"><span class="hs-identifier hs-var hs-var">outputDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockTarget -&gt; FilePath -&gt; PackageDescription -&gt; FilePath
</span><a href="Distribution.Simple.BuildPaths.html#hscolourPref"><span class="hs-identifier hs-var">hscolourPref</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockTarget
</span><a href="#local-6989586621679730676"><span class="hs-identifier hs-var">haddockTarget</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730661"><span class="hs-identifier hs-var">distPref</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679730675"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-871"></span><span>                              </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">UnqualComponentName -&gt; FilePath
</span><a href="Distribution.Types.UnqualComponentName.html#unUnqualComponentName"><span class="hs-identifier hs-var">unUnqualComponentName</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ForeignLib -&gt; UnqualComponentName
</span><a href="Distribution.Types.ForeignLib.html#foreignLibName"><span class="hs-identifier hs-var hs-var">foreignLibName</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730643"><span class="hs-identifier hs-var">flib</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;src&quot;</span></span><span>
</span><span id="line-872"></span><span>            </span><span class="annot"><span class="annottext">ConfiguredProgram -&gt; FilePath -&gt; [(ModuleName, FilePath)] -&gt; IO ()
forall {t :: * -&gt; *}.
Foldable t =&gt;
ConfiguredProgram -&gt; FilePath -&gt; t (ModuleName, FilePath) -&gt; IO ()
</span><a href="#local-6989586621679730647"><span class="hs-identifier hs-var">runHsColour</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730664"><span class="hs-identifier hs-var">hscolourProg</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730642"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">([(ModuleName, FilePath)] -&gt; IO ())
-&gt; IO [(ModuleName, FilePath)] -&gt; IO ()
forall (m :: * -&gt; *) a b. Monad m =&gt; (a -&gt; m b) -&gt; m a -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3D%3C%3C"><span class="hs-operator hs-var">=&lt;&lt;</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; LocalBuildInfo
-&gt; ForeignLib
-&gt; ComponentLocalBuildInfo
-&gt; IO [(ModuleName, FilePath)]
</span><a href="Distribution.Simple.BuildPaths.html#getFLibSourceFiles"><span class="hs-identifier hs-var">getFLibSourceFiles</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">LocalBuildInfo
</span><a href="#local-6989586621679730674"><span class="hs-identifier hs-var">lbi</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><a href="#local-6989586621679730643"><span class="hs-identifier hs-var">flib</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentLocalBuildInfo
</span><a href="#local-6989586621679730658"><span class="hs-identifier hs-var">clbi</span></a></span><span>
</span><span id="line-873"></span><span>          </span><span class="annot"><a href="Distribution.Types.Component.html#CExe"><span class="hs-identifier hs-type">CExe</span></a></span><span>   </span><span class="annot"><span class="annottext">Executable
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourExecutables"><span class="hs-identifier hs-var hs-var">hscolourExecutables</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Component -&gt; IO ()
</span><a href="#local-6989586621679730651"><span class="hs-identifier hs-var">doExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730659"><span class="hs-identifier hs-var">comp</span></a></span><span>
</span><span id="line-874"></span><span>          </span><span class="annot"><a href="Distribution.Types.Component.html#CTest"><span class="hs-identifier hs-type">CTest</span></a></span><span>  </span><span class="annot"><span class="annottext">TestSuite
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourTestSuites"><span class="hs-identifier hs-var hs-var">hscolourTestSuites</span></a></span><span>  </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Component -&gt; IO ()
</span><a href="#local-6989586621679730651"><span class="hs-identifier hs-var">doExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730659"><span class="hs-identifier hs-var">comp</span></a></span><span>
</span><span id="line-875"></span><span>          </span><span class="annot"><a href="Distribution.Types.Component.html#CBench"><span class="hs-identifier hs-type">CBench</span></a></span><span> </span><span class="annot"><span class="annottext">Benchmark
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/GHC.Base.html#when"><span class="hs-identifier hs-var">when</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Flag Bool -&gt; Bool
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourBenchmarks"><span class="hs-identifier hs-var hs-var">hscolourBenchmarks</span></a></span><span>  </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Component -&gt; IO ()
</span><a href="#local-6989586621679730651"><span class="hs-identifier hs-var">doExe</span></a></span><span> </span><span class="annot"><span class="annottext">Component
</span><a href="#local-6989586621679730659"><span class="hs-identifier hs-var">comp</span></a></span><span>
</span><span id="line-876"></span><span>
</span><span id="line-877"></span><span>    </span><span id="local-6989586621679730638"><span class="annot"><span class="annottext">stylesheet :: Maybe FilePath
</span><a href="#local-6989586621679730638"><span class="hs-identifier hs-var hs-var">stylesheet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; Maybe FilePath
forall a. Flag a -&gt; Maybe a
</span><a href="Distribution.Simple.Flag.html#flagToMaybe"><span class="hs-identifier hs-var">flagToMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#hscolourCSS"><span class="hs-identifier hs-var hs-var">hscolourCSS</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-878"></span><span>
</span><span id="line-879"></span><span>    </span><span id="local-6989586621679730666"><span class="annot"><span class="annottext">verbosity :: Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var hs-var">verbosity</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Flag Verbosity -&gt; Verbosity
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#hscolourVerbosity"><span class="hs-identifier hs-var hs-var">hscolourVerbosity</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-880"></span><span>    </span><span id="local-6989586621679730661"><span class="annot"><span class="annottext">distPref :: FilePath
</span><a href="#local-6989586621679730661"><span class="hs-identifier hs-var hs-var">distPref</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Flag FilePath -&gt; FilePath
forall a. WithCallStack (Flag a -&gt; a)
</span><a href="Distribution.Simple.Flag.html#fromFlag"><span class="hs-identifier hs-var">fromFlag</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HscolourFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#hscolourDistPref"><span class="hs-identifier hs-var hs-var">hscolourDistPref</span></a></span><span> </span><span class="annot"><span class="annottext">HscolourFlags
</span><a href="#local-6989586621679730672"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-881"></span><span>
</span><span id="line-882"></span><span>    </span><span id="local-6989586621679730647"><span class="annot"><span class="annottext">runHsColour :: ConfiguredProgram -&gt; FilePath -&gt; t (ModuleName, FilePath) -&gt; IO ()
</span><a href="#local-6989586621679730647"><span class="hs-identifier hs-var hs-var">runHsColour</span></a></span></span><span> </span><span id="local-6989586621679730622"><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730622"><span class="hs-identifier hs-var">prog</span></a></span></span><span> </span><span id="local-6989586621679730621"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730621"><span class="hs-identifier hs-var">outputDir</span></a></span></span><span> </span><span id="local-6989586621679730620"><span class="annot"><span class="annottext">t (ModuleName, FilePath)
</span><a href="#local-6989586621679730620"><span class="hs-identifier hs-var">moduleFiles</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-883"></span><span>         </span><span class="annot"><span class="annottext">Verbosity -&gt; Bool -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#createDirectoryIfMissingVerbose"><span class="hs-identifier hs-var">createDirectoryIfMissingVerbose</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730621"><span class="hs-identifier hs-var">outputDir</span></a></span><span>
</span><span id="line-884"></span><span>
</span><span id="line-885"></span><span>         </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="#local-6989586621679730638"><span class="hs-identifier hs-var">stylesheet</span></a></span><span> </span><span class="hs-keyword">of</span><span> </span><span class="hs-comment">-- copy the CSS file</span><span>
</span><span id="line-886"></span><span>           </span><span class="annot"><span class="annottext">Maybe FilePath
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram -&gt; Maybe Version
</span><a href="Distribution.Simple.Program.Types.html#programVersion"><span class="hs-identifier hs-var hs-var">programVersion</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730622"><span class="hs-identifier hs-var">prog</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Version -&gt; Maybe Version -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;=</span></span><span> </span><span class="annot"><span class="annottext">Version -&gt; Maybe Version
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Int] -&gt; Version
</span><a href="Distribution.Types.Version.html#mkVersion"><span class="hs-identifier hs-var">mkVersion</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">9</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-887"></span><span>                       </span><span class="annot"><span class="annottext">Verbosity -&gt; ConfiguredProgram -&gt; [FilePath] -&gt; IO ()
</span><a href="Distribution.Simple.Program.html#runProgram"><span class="hs-identifier hs-var">runProgram</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730622"><span class="hs-identifier hs-var">prog</span></a></span><span>
</span><span id="line-888"></span><span>                          </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-print-css&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-o&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730621"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;hscolour.css&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-889"></span><span>                   </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">() -&gt; IO ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-890"></span><span>           </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679730619"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730619"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Verbosity -&gt; FilePath -&gt; FilePath -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#copyFileVerbose"><span class="hs-identifier hs-var">copyFileVerbose</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730619"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730621"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;hscolour.css&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-891"></span><span>
</span><span id="line-892"></span><span>         </span><span class="annot"><span class="annottext">t (ModuleName, FilePath)
-&gt; ((ModuleName, FilePath) -&gt; IO ()) -&gt; IO ()
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Foldable t, Applicative f) =&gt;
t a -&gt; (a -&gt; f b) -&gt; f ()
</span><a href="../../base/src/Data.Foldable.html#for_"><span class="hs-identifier hs-var">for_</span></a></span><span> </span><span class="annot"><span class="annottext">t (ModuleName, FilePath)
</span><a href="#local-6989586621679730620"><span class="hs-identifier hs-var">moduleFiles</span></a></span><span> </span><span class="annot"><span class="annottext">(((ModuleName, FilePath) -&gt; IO ()) -&gt; IO ())
-&gt; ((ModuleName, FilePath) -&gt; IO ()) -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679730617"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679730617"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679730616"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730616"><span class="hs-identifier hs-var">inFile</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-893"></span><span>             </span><span class="annot"><span class="annottext">Verbosity -&gt; ConfiguredProgram -&gt; [FilePath] -&gt; IO ()
</span><a href="Distribution.Simple.Program.html#runProgram"><span class="hs-identifier hs-var">runProgram</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679730666"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredProgram
</span><a href="#local-6989586621679730622"><span class="hs-identifier hs-var">prog</span></a></span><span>
</span><span id="line-894"></span><span>                    </span><span class="hs-special">[</span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-css&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-anchor&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-o&quot;</span></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; FilePath
</span><a href="#local-6989586621679730615"><span class="hs-identifier hs-var">outFile</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679730617"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730616"><span class="hs-identifier hs-var">inFile</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-895"></span><span>        </span><span class="hs-keyword">where</span><span>
</span><span id="line-896"></span><span>          </span><span id="local-6989586621679730615"><span class="annot"><span class="annottext">outFile :: ModuleName -&gt; FilePath
</span><a href="#local-6989586621679730615"><span class="hs-identifier hs-var hs-var">outFile</span></a></span></span><span> </span><span id="local-6989586621679730614"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679730614"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730621"><span class="hs-identifier hs-var">outputDir</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span>
</span><span id="line-897"></span><span>                      </span><span class="annot"><span class="annottext">FilePath -&gt; [FilePath] -&gt; FilePath
forall a. [a] -&gt; [[a]] -&gt; [a]
</span><a href="../../base/src/Data.OldList.html#intercalate"><span class="hs-identifier hs-var">intercalate</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;-&quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModuleName -&gt; [FilePath]
</span><a href="Distribution.ModuleName.html#components"><span class="hs-identifier hs-var">ModuleName.components</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679730614"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C.%3E"><span class="hs-operator hs-var">&lt;.&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;html&quot;</span></span><span>
</span><span id="line-898"></span><span>
</span><span id="line-899"></span><span class="annot"><a href="Distribution.Simple.Haddock.html#haddockToHscolour"><span class="hs-identifier hs-type">haddockToHscolour</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HaddockFlags"><span class="hs-identifier hs-type">HaddockFlags</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html#HscolourFlags"><span class="hs-identifier hs-type">HscolourFlags</span></a></span><span>
</span><span id="line-900"></span><span id="haddockToHscolour"><span class="annot"><span class="annottext">haddockToHscolour :: HaddockFlags -&gt; HscolourFlags
</span><a href="Distribution.Simple.Haddock.html#haddockToHscolour"><span class="hs-identifier hs-var hs-var">haddockToHscolour</span></a></span></span><span> </span><span id="local-6989586621679730612"><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-901"></span><span>    </span><span class="annot"><span class="annottext">HscolourFlags :: Flag FilePath
-&gt; Flag Bool
-&gt; Flag Bool
-&gt; Flag Bool
-&gt; Flag Bool
-&gt; Flag FilePath
-&gt; Flag Verbosity
-&gt; Flag FilePath
-&gt; HscolourFlags
</span><a href="Distribution.Simple.Setup.html#HscolourFlags"><span class="hs-identifier hs-type">HscolourFlags</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-902"></span><span>      </span><span class="annot"><span class="annottext">hscolourCSS :: Flag FilePath
</span><a href="Distribution.Simple.Setup.html#hscolourCSS"><span class="hs-identifier hs-var">hscolourCSS</span></a></span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockHscolourCss"><span class="hs-identifier hs-var hs-var">haddockHscolourCss</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-903"></span><span>      </span><span class="annot"><span class="annottext">hscolourExecutables :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourExecutables"><span class="hs-identifier hs-var">hscolourExecutables</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockExecutables"><span class="hs-identifier hs-var hs-var">haddockExecutables</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-904"></span><span>      </span><span class="annot"><span class="annottext">hscolourTestSuites :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourTestSuites"><span class="hs-identifier hs-var">hscolourTestSuites</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockTestSuites"><span class="hs-identifier hs-var hs-var">haddockTestSuites</span></a></span><span>  </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-905"></span><span>      </span><span class="annot"><span class="annottext">hscolourBenchmarks :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourBenchmarks"><span class="hs-identifier hs-var">hscolourBenchmarks</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockBenchmarks"><span class="hs-identifier hs-var hs-var">haddockBenchmarks</span></a></span><span>  </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-906"></span><span>      </span><span class="annot"><span class="annottext">hscolourForeignLibs :: Flag Bool
</span><a href="Distribution.Simple.Setup.html#hscolourForeignLibs"><span class="hs-identifier hs-var">hscolourForeignLibs</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Bool
</span><a href="Distribution.Simple.Setup.html#haddockForeignLibs"><span class="hs-identifier hs-var hs-var">haddockForeignLibs</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-907"></span><span>      </span><span class="annot"><span class="annottext">hscolourVerbosity :: Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#hscolourVerbosity"><span class="hs-identifier hs-var">hscolourVerbosity</span></a></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag Verbosity
</span><a href="Distribution.Simple.Setup.html#haddockVerbosity"><span class="hs-identifier hs-var hs-var">haddockVerbosity</span></a></span><span>   </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-908"></span><span>      </span><span class="annot"><span class="annottext">hscolourDistPref :: Flag FilePath
</span><a href="Distribution.Simple.Setup.html#hscolourDistPref"><span class="hs-identifier hs-var">hscolourDistPref</span></a></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockDistPref"><span class="hs-identifier hs-var hs-var">haddockDistPref</span></a></span><span>    </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-909"></span><span>      </span><span class="annot"><span class="annottext">hscolourCabalFilePath :: Flag FilePath
</span><a href="Distribution.Simple.Setup.html#hscolourCabalFilePath"><span class="hs-identifier hs-var">hscolourCabalFilePath</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockFlags -&gt; Flag FilePath
</span><a href="Distribution.Simple.Setup.html#haddockCabalFilePath"><span class="hs-identifier hs-var hs-var">haddockCabalFilePath</span></a></span><span> </span><span class="annot"><span class="annottext">HaddockFlags
</span><a href="#local-6989586621679730612"><span class="hs-identifier hs-var">flags</span></a></span><span>
</span><span id="line-910"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-911"></span><span>
</span><span id="line-912"></span><span class="hs-comment">-- ------------------------------------------------------------------------------</span><span>
</span><span id="line-913"></span><span class="hs-comment">-- Boilerplate Monoid instance.</span><span>
</span><span id="line-914"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679730601"><span class="annot"><a href="../../base/src/GHC.Base.html#Monoid"><span class="hs-identifier hs-type">Monoid</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-915"></span><span>    </span><span id="local-6989586621679730512"><span class="annot"><span class="annottext">mempty :: HaddockArgs
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var hs-var hs-var hs-var">mempty</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs
forall a. (Generic a, GMonoid (Rep a)) =&gt; a
</span><a href="Distribution.Compat.Semigroup.html#gmempty"><span class="hs-identifier hs-var">gmempty</span></a></span><span>
</span><span id="line-916"></span><span>    </span><span id="local-6989586621679730509"><span class="annot"><span class="annottext">mappend :: HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-identifier hs-var hs-var hs-var hs-var">mappend</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
forall a. Semigroup a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#%3C%3E"><span class="hs-operator hs-var">(&lt;&gt;)</span></a></span><span>
</span><span id="line-917"></span><span>
</span><span id="line-918"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679730504"><span id="local-6989586621679730506"><span class="annot"><a href="../../base/src/GHC.Base.html#Semigroup"><span class="hs-identifier hs-type">Semigroup</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#HaddockArgs"><span class="hs-identifier hs-type">HaddockArgs</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-919"></span><span>    </span><span id="local-6989586621679730432"><span class="annot"><span class="annottext">&lt;&gt; :: HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
</span><a href="../../base/src/GHC.Base.html#%3C%3E"><span class="hs-operator hs-var hs-var hs-var hs-var">(&lt;&gt;)</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HaddockArgs -&gt; HaddockArgs -&gt; HaddockArgs
forall a. (Generic a, GSemigroup (Rep a)) =&gt; a -&gt; a -&gt; a
</span><a href="Distribution.Compat.Semigroup.html#gmappend"><span class="hs-identifier hs-var">gmappend</span></a></span><span>
</span><span id="line-920"></span><span>
</span><span id="line-921"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679730425"><span class="annot"><a href="../../base/src/GHC.Base.html#Monoid"><span class="hs-identifier hs-type">Monoid</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#Directory"><span class="hs-identifier hs-type">Directory</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-922"></span><span>    </span><span id="local-6989586621679730424"><span class="annot"><span class="annottext">mempty :: Directory
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var hs-var hs-var hs-var">mempty</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><span class="hs-string">&quot;.&quot;</span></span><span>
</span><span id="line-923"></span><span>    </span><span id="local-6989586621679730422"><span class="annot"><span class="annottext">mappend :: Directory -&gt; Directory -&gt; Directory
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-identifier hs-var hs-var hs-var hs-var">mappend</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Directory -&gt; Directory -&gt; Directory
forall a. Semigroup a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#%3C%3E"><span class="hs-operator hs-var">(&lt;&gt;)</span></a></span><span>
</span><span id="line-924"></span><span>
</span><span id="line-925"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679730417"><span id="local-6989586621679730419"><span class="annot"><a href="../../base/src/GHC.Base.html#Semigroup"><span class="hs-identifier hs-type">Semigroup</span></a></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#Directory"><span class="hs-identifier hs-type">Directory</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-926"></span><span>    </span><span class="annot"><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-type">Dir</span></a></span><span> </span><span id="local-6989586621679730416"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730416"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679730415"><span class="annot"><span class="annottext">&lt;&gt; :: Directory -&gt; Directory -&gt; Directory
</span><a href="../../base/src/GHC.Base.html#%3C%3E"><span class="hs-operator hs-var hs-var hs-var hs-var">&lt;&gt;</span></a></span></span><span> </span><span class="annot"><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-type">Dir</span></a></span><span> </span><span id="local-6989586621679730414"><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730414"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; Directory
</span><a href="Distribution.Simple.Haddock.html#Dir"><span class="hs-identifier hs-var">Dir</span></a></span><span> </span><span class="annot"><span class="annottext">(FilePath -&gt; Directory) -&gt; FilePath -&gt; Directory
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730416"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath -&gt; ShowS
</span><a href="../../filepath/src/System.FilePath.Windows.html#%3C%2F%3E"><span class="hs-operator hs-var">&lt;/&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FilePath
</span><a href="#local-6989586621679730414"><span class="hs-identifier hs-var">n</span></a></span><span>
</span><span id="line-927"></span></pre></body></html>